найти максимальный элемент массива и сосчитать количество элементов равных ему.Вывести это количество.
program MassivMaxCount;
Uses Crt;
const n=1000;
var j,m,c:integer;
var a: arrray [1..n] of real;
begin
randomize;
clrscr;
write(Введите количество элементов массива n<1000: );
readln(m);
c:=0;
max:=a[1];
for i:=1 to m do
begin
a[i]:=random(20)+5;
if (a[i]>max) tnen max:=a[i]
end;
for i:=1 to m do
if (a[i]=max) then c:=c+1;
writeln(Количество элементов равных наибольшему: ,c);
readkey;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
