Здравствуйте! Прошу помощи в следующем вопросе:


cоставить блок-схему по программе
Напишите программу, увеличивающую каждый элемент матрицы
А(n,m)в 3 раза и сохраняющую результат в виде второй матрицы.
собственно программа ниже
[code lang=pascal h=200]const
n=5;
m=6;
type
tMas=array[1..n,1..m]of integer;
var
a,b:tMas;
c,d:integer;
begin
{создаем матрицу}
for c:=1 to n do
begin
for d:=1 to m do
begin
a[c,d]:=random(100);
write(a[c,d]:4);
end;
writeln;
end;
{умножаем матрицу}
for c:=1 to n do
for d:=1 to m do
b[c,d]:=3*a[c,d];
{выводим результат}
writeln;
for c:=1 to n do
begin
for d:=1 to m do
write(b[c,d]:4);
writeln;
end;
end.[/code]