Question

Дан массив а, состоящий из 200 элементов. Заполнить его случайными числами в диапазоне от 10 до 35. Найти максимальный элемент. Вывести его. Посчитать, сколько раз повторяется максимальный элемент в массиве. язык- паскаль

Answer 1

Ответ:

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.