Обьесните каждую команду каждую строчку что где происходит
program z_7;
var i, s, m: integer;
a: array [1..10] of integer;
begin
s: =0; m: =0;
writeln ('введите 10 целых чисел: ');
for i: =1 to 10 do begin
write (i, ' число: ');
readln (a[i]);
if a[i] > s then s : = a[i];
end;
for i : = 1 to 10 do
begin
if a[i]=s then m: =m+1;
end;
writeln(m, ' элемента(-ов) массива имеют максимальное значение.');
end.
1 строчка говорит о том что ты создал программу под таким названием
2 строчка ты создаешь 3 переменных типа integer(числовой тип данных)
3 строчка ты создаешь массив из 10 ячеек так же типа integer
4 строка начало программы
5 строка ты присваиваешь значение переменным которые создал во 2 строке
6 это функция вывода на экран(то что в скобках)
7 начало цикла который будет повторяться 10 раз
8 так же вывод в консоль
9 функция ввода с клавиатуры
10 проверка если итый (порядковый номер из массива) элемент массива больше s, тогда переменная s равна этому числу
11 конец цикла
12 начало другого цикла который так же повторяется 10 раз
13 начало
14 проверяешь если а итый равен s , тогда m+1
15 конец цикла
16 вывод на экран текста
17 конец программы