Нужна помощь в добавлении примечаний к 2 маленьким кодам.
Есть два правильных кода. К основному телу программы мне нужно сделать примечания, что это за строчка, что в ней происходит. Потому что не совсем понимаю в программировании и стараюсь понять "на пальцах", что происходит и как.
Для примера в первом коде добавила банальные примечания, просто для примера и чтобы объяснить, что мне нужно.
var
a, i, b: integer; // описываем переменные
begin // начало программы
read(a); // считываем число
b := 0;
for i := 1 to a do
if a mod i = 0 then
b := b + 1;
writeln(b);
end. // конец программы
var
A: array[1..15, 1..15] of integer;
i, j, m, n, max: integer;
begin
writeln('Вводим двумерный массив:');
writeln;
randomize;
n := 1 + random(15);
m := 1 + random(15);
for i := 1 to n do
begin
max := 0;
for j := 1 to m do
begin
a[i, j] := random(200);
write(a[i, j]:4);
if max < a[i, j] then max := a[i, j]
end;
writeln('max = ':10, max)
end
end.

Предыдущий
вопрос Следующий
вопрос

var
A: array[1..15, 1..15] of integer; // объявление двумерного массива 15x15
i, j, m, n, max: integer; // объявление переменных
begin // начало программы
writeln('Вводим двумерный массив:'); // выводим сообщение о начале ввода
writeln; // пустая строка
randomize; // инициализация генератора случайных чисел
n := 1 + random(15); // случайное число для количества строк
m := 1 + random(15); // случайное число для количества столбцов
for i := 1 to n do // начало цикла по строкам
begin
max := 0; // инициализация переменной максимального значения в строке
for j := 1 to m do // начало цикла по столбцам
begin
a[i, j] := random(200); // заполнение ячейки массива случайным числом до 200
write(a[i, j]:4); // вывод значения ячейки с выравниванием по 4 символа
if max < a[i, j] then max := a[i, j] // проверка и обновление максимального значения в строке
end;
writeln('max = ':10, max) // вывод максимального значения в строке
end
end. // конец программы