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

  1. В квадратной матрице 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.

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

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



Похожие ответы
  1. Заданы три квадратных уравнения: ax2 +bx+c=0, dx2 +fx+r=0, px2 +qx+k=0. Найти минимальное значение среди корней этих уравнений.

  1. Найти минимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы.

  1. Помогите написать программу В квадратной матрице X найти максимальный диагональный элемент и вывести всю строку, в которой он расположен.

  1. Проверить, встречаются ли среди 15 сгенерированных чисел из диапазона от -10 до 10 нулевые элементы

  1. Задание: "В прямоугольной матрице выявить все квадратные подматрицы, у которых суммы элементов обеих диагоналей одинаковы."

  1. Здравствуйте!Нужна ваша помощь:"В прямоугольной матрице выявить все квадратные подматрицы,в которых колл-во положительных и отрицательных элементов равно.".Надеюсь на помощь,заранее спасибо!

  1. Решите с помощью блок схемы или паскаля Составьте алгоритм для решения следующей задачи: Среди N произвольных вещественных чисел найдите количество не равных нулю.

  1. Ввести одно число и запомнить его. Дальше вводятся 10 чисел. Программа должна найти сколько раз первоначальное число встречается среди набираемых и номер первого. Например, ввели первое число 5, далее вводим 7 5 1 7 2 4 5 5 6 0. Программа должна выдать "Число 5 встречается 3 раза, первый раз номер 2".

  1. Дан целочисленный квадратный массив 7х7. Найти строку с наибольшей суммой элементов.

  1. Задача: ''Составьте программу отыскания наименьшего среди тех элементов одномерного массива A(N), что лежит все интервала (c,d);'' Листинг для ТП 7.0 просто пишу в ABC вот мой листинг