Question

Пришло время проверить, правильным ли было решение инвестировать деньги в заводы. вы решаете приехать на один из заводов с инспекцией и проверить шестеренки, изготавливаемые там. проверка проста - у всех шестеренок должен быть одинаковое количество зубцов. формат входных данных вводится целое положительное число 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

Answer 1

//Ошибка в 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.