Дана матрица 3х3. Поменять местами максимальный и минимальный элементы

@Дарья21 · Регистрация: 20.01.2013

Author24 — интернет-сервис помощи студентам

Что неправильно? В строке 35, 36 или 37 иногда выходит Ошибка: 0 - выход за границы диапазона изменения индекса 1..3.

Pascal

uses crt;
const n=3;
var a:array [1..n,1..n] of integer;
    i,j,max,min,imax,jmax,imin,jmin,t:integer;
begin
clrscr;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(30);
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
if a[i,j]<min then
begin
min:=a[i,j];
imin:=i;
jmin:=j;
end;
end;
t:=a[imax,jmax];
a[imax,jmax]:=a[imin,jmin];
a[imin,jmin]:=t;
writeln('Новая матрица');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end.

@ermolay · 20.03.2013, 06:32

Дарья21, если максимальный или минимальный элемент находится в первых строке и столбце (то есть a[1,1]), то imax, jmax (imin, jmin) в ходе поиска не изменяются и равны нулю. Таким образом максимальное (минимальное) = a[0,0], а это выход за границы диапазона.
В строках 17, 18 нужно дописать:

Pascal

1 2	max:=a[1,1]; imax:=1; jmax:=1; min:=a[1,1]; imin:=1; jmin:=1;

а можно вообще не пользоваться переменными max, min, использовать только imax, jmax, imin, jmin, тогда программа будет выглядеть так:

Pascal

uses
  crt;
const
  n = 3;
var
  a: array [1..n, 1..n] of integer;
  i, j, imax, jmax, imin, jmin, t: integer;
begin
  clrscr;
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := random(30);
  writeln('Исходная матрица');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:3);
    writeln;
  end;
  imax:=1; jmax:=1;
  imin:=1; jmin:=1;
  for i := 1 to n do
    for j := 1 to n do
    begin
      if a[i, j] > a[imax,jmax] then
      begin
        imax := i;
        jmax := j;
      end;
      if a[i, j] < a[imin,jmin] then
      begin
        imin := i;
        jmin := j;
      end;
    end;
  t := a[imax, jmax];
  a[imax, jmax] := a[imin, jmin];
  a[imin, jmin] := t;
  writeln('Новая матрица');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:3);
    writeln;
  end;
end.

	20.03.2013, 06:32