Найти наибольший нечетный элемент матрицы выше побочной диагонали - Turbo Pascal

Формулировка задачи:

//Дан двумерный массив.Найти наибольший нечетный эллемент
//Выше побочной диагонали и наименьший четный эллемент ниже побочной диагонали
//с указанием их индексов.Создать новый массив, в котором найденые элементы
//поменяются местами.
uses crt;
var a:array [1..10,1..10] of integer;
i,j,i1,j1,i2,j2,m,n,max,min,x: integer;
begin
write('Введите кол-во столбцов ');readln(m);
write('Введите кол-во строк ');readln(n);
for i:=1 to m do
for j:=1 to n do
begin
gotoxy(4+5*i,j*4);read(a[i,j]);//ввод двумерного массива
end;
for i:=1 to m do
for j:=1 to n do
begin
if (a[i,j] mod 2 <> 0) and (i<(n-j+1) ) and (max<a[i,j])
then begin
 max:=a[i,j]; i1:=i;j1:=j;  end;
end;writeln('max выше побочной',max,'[', i1 ,',', j1 ,']');
for i:=1 to m do
for j:=1 to n do
if (a[i,j] mod 2 = 0) and (i>(n-j+1) ) and (min>a[i,j])
then begin
 max:=a[i,j]; i2:=i;j2:=j;  end;
writeln('min выше побочной',max,'[', i2 ,',', j2 ,']');
x:=a[i]; a[i]:=a[i+1];a[i+1]:=x;//Замена найденых элементов
for i:=1 to m do
for j:=1 to n do
begin
gotoxy(4+5*i,j+3*5);write(a[i,j]);//ввод двумерного массива
end;//Все написано правильно, только вот не находит min ниже побочной диагонали
end.


textual

Код к задаче: «Найти наибольший нечетный элемент матрицы выше побочной диагонали - Turbo Pascal»

prmin, prmax : integer;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.267 из 5

Источник