Информатика

Аделина

29 марта, 18:33

Что нужно изменить во 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.

?