ДАН ДВУМЕРНЫЙ МАССИВ ЧИСЕЛ. ОПРЕДЕЛИТЬ, СУММУ ЭЛЕМЕНТОВ ВТОРОГО СТОЛБЦА МАССИВА, БОЛЬШИХ...

Question

ДАН ДВУМЕРНЫЙ МАССИВ ЧИСЕЛ. ОПРЕДЕЛИТЬ, СУММУ ЭЛЕМЕНТОВ ВТОРОГО СТОЛБЦА МАССИВА, БОЛЬШИХ 10.

Answer 1

var
a: array[1..10, 1..10] of integer;
i, j, s: integer;

begin
s := 0;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(20) + 1;
write(a[i, j]:3);
if (j = 2) and (a[i, j] > 10) then s := s + a[i, j];
end;
writeln;
end;
writeln('Сумма элементов 2го столбца больших 10 равна', s);
end.