Задать двумерный массив 4х4 случайными значениями от 12 до 18 включительно. Вывести сумму значений элементов каждого столбца матрицы. Задать двум

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

  • program gt2;
    var i,j,s:integer;
    a:array[1..4,1..4]of integer;
    begin
    randomize;
    for i:=1 to 4 do
    for j:=1 to 4 do
    a[i,j]:=random(7)+12;
    for i:=1 to 4 do
    begin
    s:=0;
    for j:=1 to 4 do
    s:=s+a[j,i];
    writeln(s);
    end;
    end.

    program gt3;
    var i,j,s:integer;
    a:array[1..7,1..7]of integer;
    begin
    randomize;
    for i:=1 to 7 do
    for j:=1 to 7 do
    a[i,j]:=random(7)+12;
    for i:=1 to 7 do
    begin
    s:=0;
    for j:=1 to 7 do
    if(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;
    begin
    for i:=1 to 3 do
    for j:=1 to 3 do
    read(a[i,j]);
    for i:=1 to 3 do
    begin
    p:=a[i,1];
    a[i,1]:=a[i,2];
    a[i,2]:=p;
    end;
    for i:=1 to 3 do
    begin
    for j:=1 to 3 do
    begin
    write(a[i,j],’ ‘);
    end;
    writeln;
    end;
    end.