таблица

[Владимир Чернов]

Дана таблица размера n*n.Заполнить таблицу случайными числами и отразить элементы относительно главной диагонали.

[Grag]

Сделаю на Делфи... Обращайся...
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[Stilet]

Э-э-э... Что-то в этом роде:

MODULE q;
IMPORT StdLog,ObxRandom;
VAR a:ARRAY(5) OF ARRAY(5) OF INTEGER;
 i,j:INTEGER;

PROCEDURE Ввели;
BEGIN
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
   a[i,j]:=SHORT(ENTIER(ObxRandom.Uniform()*10));
  END;
 END;
END Ввели;

PROCEDURE Вывели;
BEGIN
 StdLog.Ln;
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
   StdLog.Int(a[i,j]); StdLog.Tab;
  END;  StdLog.Ln;
 END;
 StdLog.Ln;
END Вывели;

PROCEDURE Отразили;
VAR t:INTEGER;
BEGIN
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=i TO LEN(a[i])-1  DO
   t:=a[i,j];
   a[i,j]:=a[LEN(a)-i-1,LEN(a[i])-1-j];
   a[LEN(a)-i-1,LEN(a[i])-1-j]:=t;

  END;  
 END;
END Отразили;

PROCEDURE Порулили*;
BEGIN
 StdLog.Clear;
 Ввели;Вывели;
 Отразили;Вывели;
END Порулили;

END q.
q.Порулили;