Ввод и вывод на экран матриц выполнил слудующим образом:
Код: Выделить всё
program matr;
uses crt;
Type
vector1=array[1..10,1..5] of integer;
vector2=array[1..7,1..6] of integer;
vector3=array[1..50] of integer;
var A:vector1;B:vector2;
n,m,k,l,i:integer;
begin
clrscr;
randomize;
for n:=1 to 10 do
for m:=1 to 5 do
A[n,m]:=random (20);
randomize;
for k:=1 to 7 do
for l:=1 to 6 do
B[k,l]:=random (10);
for n:=1 to 10 do begin
for m:=1 to 5 do
write (A[n,m]:4);
writeln;
end;
writeln (' ');
writeln (' ');
for k:=1 to 7 do begin
for l:=1 to 6 do
write (B[k,l]:4);
writeln;
end;
end.