Question

Создать двумерный массив размером 4 x 5, каждый элемент которого равняется произведению своих индексов. Вывести все элементы массива на экран в виде таблицы. Найти сумы чисел, кратных 3, каждом рядке и вывести полученный результат с поясняющим текстом.

Answer 1

const
maxn = 4;
maxm = 5;
type
myarr = array [1..maxn, 1..maxm] of longint;
var
a: myarr;
sum, i, j: longint;
begin
for i := 1 to 4 do begin
for j := 1 to 5 do begin
a[i, j] := i * j;
write(a[i, j], ' ');
end;
writeln;
end;
sum := 0;
for j := 1 to 5 do begin
for i := 1 to 4 do
if (a[i, j] mod 3 = 0) then
sum := sum + a[i, j];
writeln('Сумма чисел, кратных 3, в ', j, ' столбце равна ', sum);
sum := 0;
end;
end.