Задание № 2:

1. Составьте программу для подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов.

 

Program zadacha;

const n =30;

var a: array[1..n] of integer;

i, k, kmax: integer;

begin

for i:=1 to n do

begin

writeln('введите',i,'элемент');

readln(a[i]);

end;

k := 1;

kmax := 1;

for i:=2 to n do begin

if a[i] = a[i-1] then

k := k + 1

else k := 1;