Нахождение минимальных элементов заданного столбца и всех строк в столбце, где он находится; вывод результата на принтер - для этого кроме 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.

---