Пришло время проверить, правильным ли было решение инвестировать деньги в заводы. вы решаете приехать на один из заводов с инспекцией и проверить шестеренки, изготавливаемые там. проверка проста - у всех шестеренок должен быть одинаковое количество зубцов. формат входных данных вводится целое положительное число 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
//Ошибка в if.
//В принципе можно обойтись и без вычисления s. Просто
//прерывать цикл при несовпадении двух шестеренок и
//выводить 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 - 1) then
Write('YES');
if (s <> n - 1) then
Write('NO');
end.