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 max<a[i] then max:=a[i];end;
for i:=1 to 10 do beginif a[i]=max then beginn:=n+1;end;end;
writeln();writeln('max=',max);writeln('n=',n);end.