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

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 maxend; 
writeln(a[1]); 
writeln(a);  
end.

Comments

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