2. Задать двумерный массив (4х4) случайными значениями от 12 до 18 включительно. Вывести сумму значений элементов каждого столбца матрицы.
3. Задать двумерный массив (7х7) случайными значениями от 12 до 18 включительно. В каждом столбце матрицы найти количество элементов, значения которых меньше 14.
4. Задать двумерный массив (3х3) с клавиатуры, поменять значения элементов 1 столбца со вторым.

В 4 учитель написал: z=A[i,1] A[i,1]:=A[1,2] A[i,2]:=z

a[i,1]:=A[1,2] это неверно а точнее A[i,1]:=A[i,2]

program gt2;var i,j,s:integer;a:array[1..4,1..4]of integer;beginrandomize;for i:=1 to 4 dofor j:=1 to 4 doa[i,j]:=random(7)+12;for i:=1 to 4 dobegins:=0;for j:=1 to 4 dos:=s+a[j,i];writeln(s);end;end.program gt3;var i,j,s:integer;a:array[1..7,1..7]of integer;beginrandomize;for i:=1 to 7 dofor j:=1 to 7 doa[i,j]:=random(7)+12;for i:=1 to 7 dobegins:=0;for j:=1 to 7 doif(a[j,i]<14)then s:=s+1;writeln(s);end;end.program gt4;var i,j,p:integer;a:array[1..3,1..3]of integer;beginfor i:=1 to 3 dofor j:=1 to 3 doread(a[i,j]);for i:=1 to 3 dobeginp:=a[i,1];a[i,1]:=a[i,2];a[i,2]:=p;end;for i:=1 to 3 dobeginfor j:=1 to 3 dobeginwrite(a[i,j],' ');end;writeln;end;end.