Задачи на матрицы. Паскаль

[firm.nice]

1. Программа заполняет матрицу случайными числами. Программа выводит на экран в виде таблицы, заменяет второй столбец нулями и выводит измененную матрицу в виде таблицы.

2. Программа вводит целую матрицу a(mxn) и печатает массив, сформированный из элементов тех строк, номер которых кратен 3. Массив распечатать в 3 колонки.

 

[Vladimir_S]

Темы объединил.
А сами не хотите попробовать? Задачки-то примитивные. Или совсем желания учиться нет - думаете всегда на форумах выезжать? Ну уж если совсем никак, то нарисую, конечно. Но лучше бы Вы сами хоть что-нибудь сделали. Лучше в первую очередь для Вас.

 

[Vladimir_S]

Ладно, вот Вам вторая задача, она еще более ли менее "с подковыркой", ну а уж первую давайте-ка сами. Там совсем школьный уровень.

2. Программа вводит целую матрицу a(mxn) и печатает массив, сформированный из элементов тех строк, номер которых кратен 3. Массив распечатать в 3 колонки.

Const
 M=8;
 N=14;
Var
 A:Array[1..M,1..N] of Integer;
 C:Array[1..(M div 3)*N] of Integer;
 i,j,Q:Integer;
Begin
 Randomize;
 For i:=1 to M do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=10-Random(20);
     Write(A[i,j]:4);
    end;
   Writeln;
  end;

 Writeln;

 For i:=1 to (M div 3) do
  For j:=1 to N do
   C[(i-1)*N+j]:=A[i*3,j];



 Q:=(M div 3)*N div 3;
 If ((M div 3)*N mod 3)>0 then Q:=Q+1;

 For i:=1 to Q do
  begin
   For j:=1 to 3 do
    If ((j-1)*Q+i)<=(M div 3)*N then Write(C[(j-1)*Q+i]:4);
   Writeln;
  end;

 Readln
End.