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

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

Дан двухмерный массив. Найти наименьший элемент побочной диагонали и наименьший элемент ниже побочной диагонали с указанием их индексов. Создать новый массив, в котором найденные элементы поменяются местами.

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

textual
program poisk;
uses crt;
type mas=array[1..100,1..100] of integer;
var a:mas;
i,j,n,i_i,j_j,i_i2,j_j2,min,min2:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
write('a[',i,' ',j,']='); 
read(a[i,j]);
end;
writeln;
end;
min:=a[1,n];
for i:=1 to n do
for j:=1 to n do
if (j+i=n+1) and (a[i,j]<min) then 
begin
min:=a[i,j];
i_i:=i;
j_j:=j;
end;
min2:=a[2,n];
for i:=1 to n do
for j:=1 to n do
if not (i+j<=n+1) and (a[i,j]<min2) then 
begin
min2:=a[i,j];
i_i2:=i;
j_j2:=j;
end;
for i:=1 to n do
for j;=1 to n do begin
if (i+j=n+1) and (i_i=i) and (j_j=j) then
a[i,j]:=min2;
if not (i+j<=n+1) and (i=i_i2) and (j=j_j2) then
a[i,j]:=min;
end;
for i:=1 to n do
for j;=1 to n do
write('a[',i,' ',j,']=',a[i,j]);
end.

14   голосов, оценка 4.143 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы