Определить кол-во наибольших чисел в произвольно заданном числовом массиве(за один проход по массиву).

Вопрос школьника по предмету Информатика

Определить кол-во наибольших чисел в произвольно заданном числовом массиве(за один проход по массиву).

Ответ учителя по предмету Информатика

const n=10;

var a:array[1..n] of integer;

max,k,i:integer; 

begin

Randomize;

for i:=1 to n do begin

 a[i]:=random(21);

 write(a[i]:3);

 end;

writeln;

max:=a[1]; k:=1;

for i:=2 to n do

 if a[i]>max

  then begin max:=a[i];  k:=1; end

  else if a[i]=max then k:=k+1;

writeln(‘max = ‘,max,’  k = ‘,k);

end.

Пример:

  1  4  9 20  9  5  8 20 14 15

max = 20  k = 2