Сформировать квадратную матрицу, Сформировать квадратную матрицу B(n,n) (2<n<6) Опции

[Eshler]

Сформировать квадратную матрицу B(n,n) (2<n<6), элементами которой являются случайные числа, равномерно распределенные в интеревале [-5;5]. Переставляя строки и столбцы, добиться того, чтобы наибольший элемент матрицы оказался в правом нижнем углу.

[Алена]

Адель, а зачем

if a[i,j]>max then
begin
  max:=a[i,j];
  imax:=i;
  jmax:=j;
end;

? Лишние переменные в программе - зло.

if a[i, j] > a[imax, jmax] then
begin
  imax := i;  jmax := j;
end;

выполняет ту же работу.

Кстати, рекомендуется управляющие переменные циклов описывать как можно ближе к самому циклу (т.е. локально в используемой процедуре).

Сообщение отредактировано: Алена - 20.03.2007 10:55