Дан двумерный массив B[4,4] из целых чисел в интервале от - 20 до 50.

1. распечатать.

2. переставить 2 и 3 строки.

3. подсчитать в каждой строке количество положительных элементов

4. найти сумму в 3 столбце.

Program abc;

const arr: array [1 ... 4] of array [1 ... 4] of integer = ((1,2,3,4), (5,6,7,8), (9,10,11,12), (13,14,15,16)) ;

var i, j: integer;

begin

for i : = 1 to 4 do

begin

for j : = 1 to 4 do

begin

write (arr[i][j], ' ') ;

end;

writeln () ;

end;

writeln () ;

for i : = 1 to 4 do

begin

j : = arr[2][i];

arr[2][i] : = arr[3][i];

arr[3][i] : = j;

end;

for i : = 1 to 4 do

begin

for j : = 1 to 4 do

begin

write (arr[i][j], ' ') ;

end;

writeln () ;

end;

end.