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

@~~Sendvich~~ · 03.06.2014, 01:01. **Показов** 1085. **Ответов** 3

0,1 0,3 9
0 4 5
-5 2 3
2 8 1

Добавлено через 2 минуты
помогите пожалуйста с задачей

@Svager · 03.06.2014, 01:13

Поменять местами максимум и минимум в матрице
поиск в помощь

@~~Sendvich~~ · 03.06.2014, 01:47 **[ТС]**

Pascal

Program lab5;
uses crt;
const m=4;n=3;
var a:array[1..m,1..n] of integer;
    i,j,imn,jmn,imx,jmx:byte;
    x:integer;
begin
clrscr;
writeln('Ââåäèòå â ìàññèâ ',m*n,' ýëåìåíòîâ:');
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Èñõîäíàÿ ìàòðèöà:');
imn:=1;jmn:=1;
imx:=m;jmx:=n;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if a[i,j]<a[imn,jmn] then
     begin
      imn:=i;
      jmn:=j;
     end;
     end;
    if a[i,j]>a[imx,jmx] then
     begin
      imx:=i;
      jmx:=j;
     end;
End;
end.

почему выдает ошибку в 14 строке??? не могу понять

@Cyborg Drone · 03.06.2014, 03:51

Сообщение от Sendvich

почему выдает ошибку в 14 строке???

У меня не выдаёт.

@~~Sendvich~~ Заблокирован
		1
	Поменять местами минимальный и максимальный элементы матрицы 03.06.2014, 01:01. Показов 1085. Ответов 3 Метки нет (Все метки) 0,1 0,3 9 0 4 5 -5 2 3 2 8 1 Добавлено через 2 минуты помогите пожалуйста с задачей 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	03.06.2014, 01:13	2
	Поменять местами максимум и минимум в матрице поиск в помощь 1

@Cyborg Drone Модератор 9534 / 4861 / 3230 Регистрация: 17.08.2012 Сообщений: 15,203
	03.06.2014, 03:51	4
	Сообщение было отмечено Sendvich как решение Решение Сообщение от Sendvich почему выдает ошибку в 14 строке??? У меня не выдаёт. 1

Опции темы

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

Решение