Question

ОБЬЕСНИТЕ КАЖДУЮ КОМАНДУ КАЖДУЮ СТРОЧКУ ЧТО ГДЕ ПРОИСХОДИТ

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.

Answer 1

 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 конец программы