Что нужно изменить во 2-ом решении по сравнению с 1-ым решением ?
№1 Дан двумерный массив. Определить сумму элементов второго столбца массива, больших 10.
Решение №1.
program sum;
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);
readln
end.
№2 Дан двумерный массив. Определить сумму элементов заданного столбца массива, больших 10.
Решение №2.
??????