Дан массив а, состоящий из 200 элементов. Заполнить его случайными числами в диапазоне от 10 до 35. Найти максимальный элемент. Вывести его. Посчитать, сколько раз повторяется максимальный элемент в массиве. язык- паскаль
More Questions From This User See All
Answers & Comments
Ответ:
var a: array [1..200] of integer;
var max,n,i: integer;
begin
max:=1;
n:=0;
randomize();
for i:=1 to 200 do
begin
a[i]:=random(35-10+1)+10;
if (a[i]>a[max]) then n:=0;
if (a[i]>=a[max]) then
begin
max:=i;
n:=n+1;
end;
end;
writeln('Максимальный элемент равен ',a[max],' и повторяется ',n,' раз');
end.