[Moonlight]

Пожалуста помогите составить програму, просто не успеваю ничево, завтра 3 модуля, а здать надо....

Первый ряд матрицы А заминить последним столбиком матрици В и вывести все три матрици

помогите пожалуста!!! зарание спасибо!!!!

[Страдалецъ]

Тут и делать-то особо нечего:

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const
  MatrixSize = 5;
Var
  MatrixA,MatrixB: Array[1..MatrixSize,1..MatrixSize] of Integer;
  R,C: Integer;
begin
for R := 1 to MatrixSize
do for C := 1 to MatrixSize
   do begin
      MatrixA[R,C] := Random(100);
      MatrixB[R,C] := Random(100);
      end;
WriteLn('Matrix A');
for R := 1 to MatrixSize
do begin
   for C := 1 to MatrixSize
   do Write(MatrixA[R,C]:3);
   WriteLn;
   end;
WriteLn('Matrix B');
for R := 1 to MatrixSize
do begin
   for C := 1 to MatrixSize
   do Write(MatrixB[R,C]:3);
   WriteLn;
   end;
for C := 1 to MatrixSize
do MatrixA[1,C] := MatrixB[C,MatrixSize];

WriteLn('Matrix C');
for R := 1 to MatrixSize
do begin
    for C := 1 to MatrixSize
    do Write(MatrixA[R,C]:3);
    WriteLn;
    end;
ReadLn;
end.

[Moonlight]

Cпасиба канешно бальшое, но если вас не затруднит, мне бы нужно было не Random, а штоб User сам вводил n-ое количество рядков и столбцов, и сами элементы масива... количество рядков = кол. столбцов....

помогите пожалуста, я покашто noob в програмировании...;(

зарание спасибо!!!!

[Moonlight]

Всьо, спасибо, я уже зробив!))