Сформировать одномерный массив, каждый элемент которого равен максимальному элементу соответствующего столбца произвольно заданной матрицы размером m x n. В сформированном массиве найти минимальный элемент.
b := a[1, i]; {chtoby bylo s chem sravnivati} - не получиться т. к. нельзя преобразовывать тип integer к еипу array
типу*
uses crt;
var a: array [1..100,1..100] of integer;
m,n,i,j,min: integer;
b: array [1..100] of integer;
begin clrscr; randomize;
write('m = '); readln(m);
write('n = '); readln(n);
writeln;
writeln('Ishodnyi massiv:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
writeln;
writeln('Poluchennyi massiv:');
for i:=1 to n do
begin
b:=a[1,i]; {chtoby bylo s chem sravnivati}
for j:=2 to m do
if a[j,i] > b then
b:=a[j,i];
write(b:4); {srazu vypisyvaem}
if i = 1 then min:=b else
if b < min then min:=b; {i srazu ischem minimalinoe}
end;
writeln; writeln;
writeln('Minimalinyi iz nih = ',min);
readkey; end.
на С напишу за чирку
⇢