Так по условию задачи даны две матрицы а(3х3) и b(5x5). Нужно проделать операции обмена с этими двумя матрицами. Я понимаю так, что пользователю предлагатеся ввести снача матрицу а, потом - b. В результате должно быть тоже две матрицы а и b. Вот например код для матрицы а.
Код
Program matrica;
const n=3;
var a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,t:integer;
begin
Writeln('Vvedite matr a:');
for i:=1 to n do
begin
for j:=1 to n do
Readln(a[i,j]);
end;
WriteLn('Isxod massiv');
for i:=1 to n do
begin for j:=1 to n do Write(a[i,j]:3);
WriteLn;
end;
begin
for i:=1 to (n div 2) do begin
t:=a[i,i];
a[i,i]:=a[n-i+1,n-i+1];
a[n-i+1,n-i+1]:=t;
end;
WriteLn('Poluch massiv');
For i:=1 to n do
begin
for j:=1 to n do
Write(a[i,j]:3);
WriteLn;
end;
end;
end.
Как в программе сделать одновременно ввод, вывод, операцию обмена двух матриц? Я думаю, что нужно использовать процедуры и функции. Пожалуйста подскажите.