Пришло время проверить, правильным ли было решение инвестировать деньги в заводы. вы решаете приехать на один из заводов с инспекцией и проверить шестеренки, изготавливаемые там. проверка проста - у всех шестеренок должен быть одинаковое количество зубцов. формат входных данных вводится целое положительное число n, где n - количество деталей для проверки (2 < n < 1000) вводится n целых чисел m, где m - количество зубцов у каждой шестеренки (1 < m < 100) формат выходных данных выводится сообщение yes в случае, если количество зубцов у всех шестеренок оказалось одинаковым и no, если хотя бы одна из них имеет отличное от других количество зубцов найти ошибку var n,s,i,m,m1: int64; begin s: =0; read(n,m1); for i: =1 to n-1 do begin read(m); if m = m1 then s: =s+1; m: =m1; end; if s = n or m1 then begin write('yes'); end; if s < > n or m1 then write('no'); end. 45
