Определить минимальные элементы в каждом столбце матрицы С(М,К), где М<=15, K<=10. Сформировать из них массив В(К), элементы которого расположены по возрастанию. Количество строк и столбцов матрицы вводится по запросу. Вывести исходную матрицу и полученный массив - Pascal(Паскаль)

uses crt;
var a:array[1..20,1..20] of integer;
    b:array[1..20] of integer;
    i,j,n,m,x,k:integer;
begin
ClrScr;
Randomize;
repeat
Write('n=');
Readln(n);
Write('m=');
Readln(m);
until (n<=15) and (m<=10);
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
   end;
  Writeln;
 end;
Writeln;
b[j]:=1;
 for i:=1 to n do
  for j:=1 to m do
   if a[i,j]<b[j] then
    b[j]:=a[i,j];
 for i:=1 to m do
  Write(b[i]:4);
 for i:=1 to m do
  for k:=i to m do
   if b[i]>b[k] then
    begin
     x:=b[i];
     b[i]:=b[k];
     b[k]:=x;
    end;
Writeln;
Writeln('Sort');
 for i:=1 to m do
  Write(b[i]:4);
Readln;
end.

Похожие записи/страницы:

Leave a Comment

− 4 = 6