Нахождение минимальных элементов заданного столбца и всех строк в столбце, где он находится; вывод результата на принтер - для этого кроме crt подключается библиотека printer.

program min_row;
uses crt,printer;
const
 n=20;m=20;
var
 max,min:real;
 x:array[1..n,1..m] of real;
 i,j,k,l,mini,n1,m1:integer;
Begin
 clrscr;
 write('число строк= '); readln(n1);
 write('число столбцов= '); readln(m1);
 for i:=1 to n1 do
 for j:=1 to m1 do
 begin
 write('x(',i,',',j,')= ');
 readln(x[i,j])
 end;
 clrscr; {очистка экрана}
 writeln('Введён массив');
 for i:=1 to n1 do
 begin
 for j:=1 to m1 do
 begin
 {Вывод массива на экран}
 write(x[i,j]:5:2,' ');
 {Вывод массива на принтер (раскомментировать, если принтер подключен)
 в формате 5 знаков,включая точку, 2 знака после точки}
 {write(lst,x[i,j]:5:2,' ')}
 end{внутренний цикл};
 {Переход на новую строку при выводе на экран}
 writeln;
 {Переход на новую строку при выводе на принтере}
 {writeln(lst);}
 end{внешний цикл};
 write('Введите номер столбца ');
 readln(l);
 if (l<=m1) and (l>0){проверка правильности ввода номера столбца}
 then
 begin
 min:=x[1,l];{начальные значения наименьшего элемента
 и номера строки, в которой он находится}
 for i:=1 to n1 do
 if x[i,l]<min then min:=x[i,j];
 {Вывод на принтер (раскомментировать, если принтер подключен)}
 {writeln(lst,'Минимальный элемент столбца ',l,' равен' ,min:5:2);}
 {Вывод на экран}
 writeln('Минимальный элемент столбца ',l,' равен ' ,min:5:2);
 writeln('располагается в строке (строках):');
 for i:=1 to n1 do if x[i,l]=min then write(i,' ');
 writeln
 end
 else writeln('Такого столбца нет');
 readln
End.

Оценка - 1.0 (12)

2010-08-18 • Просмотров [ 1870 ]

Минимальное в строке матрицы