Question

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

Answer 1

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.

Answer 2

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.

Answer 3

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

Answer 4

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

Answer 5

// 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= 5
6 3 6 6 2
3 максимальных значений, равных 6