В прямоугольной матрице A[M,N] увеличить все элементы в 3 раза. Вывести в результате две матрицы ( исходную и получившуюся) помогите написать программу в паскале

1

Ответы и объяснения

Лучший Ответ!
2012-12-19T17:24:38+00:00

Program z1;
var A,B:array [1..100,1..100] of integer;
      i,j,m,n:integer;
Begin
 writeln('введите кол-во строк и столбцов');
 read(m,n);
 writeln('введите матрицу');
 for i:=1 to m do
       for j:=1 to n do
            read(A[i,j]);
for i:=1 to m do
      for j:=1 to n do
            B[i,j]:=A[i,j]*3;
for i:=1 to m do
      begin
       for j:=1 to n do
             write(A[i,j]:4);
       writeln;
      end;
writeln;
for i:=1 to m do
      begin
       for j:=1 to n do
             write(B[i,j]:4);
       writeln;
      end;
end.