дан массив из десяти целых чисел. Определите , сколько элементов этого массива имеют максимальное значение?
с подробностями пж
с подробностями пж
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.