В матрице среди элементов лежащих ниже главной диагонали найти первый минимальный элемент - Pascal ABC

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

В квадратной матрице N*N среди элементов лежащих НИЖЕ главной диагонали найти первый минимальный элемент.Определить его номер строки.Поменять местами строку,в которой найден этот элемент со строкой с заданным номером К


textual

Код к задаче: «В матрице среди элементов лежащих ниже главной диагонали найти первый минимальный элемент - Pascal ABC»

const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,mn,imn,k,x:integer;
begin
randomize;
repeat
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
mn:=a[2,1];
imn:=2;
for i:=2 to n do
for j:=1 to i-1 do
if a[i,j]<mn then
 begin
  mn:=a[i,j];
  imn:=i;
 end;
writeln('Первый минимальный элемент=',mn,' в строке ',imn);
repeat
write('Введите номер строки для обмена от 1 до ',n,' <>',imn,' k=');
readln(k);
until(k in [1..n])and(k<>imn);
for j:=1 to n do
 begin
  x:=a[imn,j];
  a[imn,j]:=a[k,j];
  a[k,j]:=x;
 end;
writeln('Обмен строк ',imn,' и ',k);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end.
Эта работа вам не подошла?

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


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

7   голосов, оценка 3.714 из 5

Источник
Похожие ответы