давно
Старший Модератор
31795
6196
12.05.2016, 18:29
общий
это ответ
Здравствуйте, amelya.kuro!
Смотрите приложение:
[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]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.