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

Question

Дан массив из десяти целых чисел. Определите , сколько элементов этого массива имеют максимальное значение?
с подробностями пж

Answer 1

Program zadacha;
vara: array[1..10] of integer;i,max,n: integer;
beginfor i:=1 to 10 do read(a[i]);n:=0;max:=a[1];
for i:=2 to 10 do beginif maxfor i:=1 to 10 do beginif a[i]=max then beginn:=n+1;end;end;
writeln();writeln('max=',max);writeln('n=',n);end.

---