Ввести матрицу А(5,6). Найти минимальный элемент в каждом столбце матрицы и записать их в...

Question

Ввести матрицу А(5,6). Найти минимальный элемент в каждом столбце
матрицы и записать их в виде одномерного массива. Массив вывести на печать с
заголовком «Массив минимумов». Поиск минимумов оформить процедурой. Для
В(7, 9) аналогично.

Answer 1

Program gt;
const n=5;m=6;
var i,j:integer;
a:array[1..100,1..100]of integer;
procedure minimum(n,m:integer);
var i,j,min:integer;
begin
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
writeln('Массив минимумов');
for i:=1 to n do
begin
min:=a[i,1];
for j:=1 to m do
if(a[i,j]writeln(min);
end;
end;
begin
minimum(n,m);
end.

Answer 2

Type mas=array[,]of integer;
var
  i,j:integer;
  a:mas;
  b:mas;

procedure masmin(a:array[,]of integer);
var
  n,m,i,j:integer;
  c:array of integer;
begin
n:=length(a,0)-1;
m:=length(a,1)-1;
setlength(c,m+1);
writeln('Массив минимумов:');
for i:=1 to m do
  begin
  for j:=1 to n do
    begin
    if j=1 then c[i]:=a[j,1];
    if a[j,i]    end;
  write(c[i],' ');
  end;
writeln;
end;

begin
setlength(a,6,7);
writeln('Массив А:');
for i:=1 to 5 do
  begin
  for j:=1 to 6 do
    begin
    a[i,j]:=random(10);
    write(a[i,j],' ');
    end;
  writeln;
  end;
masmin(a);
writeln;
setlength(b,8,10);
writeln('Массив B:');
for i:=1 to 7 do
  begin
  for j:=1 to 9 do
    begin
    b[i,j]:=random(10);
    write(b[i,j],' ');
    end;
  writeln;
  end;
masmin(b);
end.