Question

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

Answer 1

Ответ:

program massiv;

const Sz = 100; // Размер массива

var

 a: array [1..Sz] of integer;

 i: integer;

 max: integer;

 counter: integer;

 

begin

 max:=0;

 counter:=0;

 for i:=1 to Sz do begin

   a[i] := random(26) + 10;

   if a[i] > max then begin

       max := a[i];

       end;

   end;

   writeln('Элементы массива: ');

 for i:=1 to Sz do begin

   write(a[i],' ');

   if a[i] = max then begin

       counter := counter + 1;

       end;

   end;

   writeln('');

   writeln('Максимальный элемент: ', max);

   writeln('Кол-во таких элементов ', counter);

end.

Объяснение: