Question

дан массив из 10 целых чисел определите сколько элементов этого массива имеют максимальное значение

Answer 1

const  n=10;
var  i,b,max:integer;
       a: array [1..n] of integer;
begin 
 for i:=1 to n do 
 begin   
   a[i]:=random(1,50);
 end; 
 writeln(a);
  max:=a[1]; 
for i:=1 to n do 
begin   
 if max<a[i] then max:=a[i] 
end; 
writeln(a[1]); 
writeln(a);  
end.

Answer 2

не чет не так упростил не робит