дан двумерный массив 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 dobegin  j := arr[2][i];  arr[2][i] := arr[3][i];  arr[3][i] := j;  end; for i := 1 to 4 dobegin  for j := 1 to 4 do  begin    write(arr[i][j], ' ');  end;writeln(); end; end.