Вводится последовательность из N произвольных чисел. Найти наибольшее число в последовательности. Если таких чисел несколько, определить, сколько их.
программирование

var co, N, max: integer;begin max := 0; co := 1; readln(N); for var i := 1 to N do begin readln(N); if N > max then max := N else if N = max then co += 1; end; if co <> 1 then writeln(max, ' ', co) else writeln(max);end.

Текст в ответе должен быть отформатирован!

выдает ошибку в этой строчке for var i := 1 to N do

var  co, N, max: integer;begin  max := 0;  co := 1;  readln(N);  for var i := 1 to N do  begin    readln(N);    if N > max then      max := N    else if N = max then      co += 1;  end;  if co <> 1 then    writeln(max, ' ', co)  else    writeln(max);end.

// PascalABC.NET 3.3, сборка 1531 от 30.08.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrInteger(ReadInteger('n='));  var m:=a.Max;  var s:=a.Where(x->x=m);  if s.Count=1 then Writeln('Масимальное значение ',m)  else Writeln(s.Count,' максимальных значений, равных ',m)end.Примерn= 56 3 6 6 23 максимальных значений, равных 6