подпрограммы Опции

[viv]

Помогите пожалуйста разобраться с задачей. Условие такое: в обеих матрицах а(3х3) и b(5х5) порядок следования элементов главной диагонали поменять на обратный. У меня получилось примерно так:

Код

conts n=5
a:array[1..n,1..n] of integer;
t:integer;

....

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;

[trminator]

Можно еще это попробовать. Должно для любого n работать (проверял на паре тестов, вроде работает...). Не понял, при чем тут подпрограммы, поэтому оставил одну процедуру, на всякий случай

Код

const n = 5;
var a : array[1..n, 1..n] of byte;
   i, j : byte;

{ Процедура меняет местами два элемента }
procedure exch(var l, m : byte);
var t : byte;
begin
   t := l; l := m; m := t
end;

begin
{ Ввод }
   for i := 1 to n do
       for j := 1 to n do
           read(a[i,j]);

{ Обработка }
   for i := 1 to n div 2 do
       exch(a[i,i], a[n-i+1, n-i+1]);

{ Вывод }
   for i := 1 to n do
   begin
       for j := 1 to n do
           write(a[i,j]:4);
       writeLn;
   end;
end.

Не понял, при чем тут подпрограммы

Я тоже!

Сообщение отредактировано: Oleg_Z - 5.10.2004 20:05