Дан массив из десяти целых чисел. Напишите программу Pascal подсчёта количества элементов этого массива, имеющих максимальное значение. Данные задайте самостоятельно.

Код программы:

PROGRAM program8;

VAR

i,max,kol: integer;

mas: array[1..10] of integer;

BEGIN

kol:=0;

//Заполнение массива.

for i:=1 to 10 do

begin

mas[i]:=random(0,10);

write(mas[i],' ');

end;

//Поиск максимального элемента в массиве.

max:=mas[1];

for i:=1 to 10 do

begin

if (mas[i] = max) then m...