Написать программу,которая в двумерном массиве случайных чисел находит в каждом столбце небольшой элемент и записывает его в одномерный массив...ПЛЛЛИИИИЗЗЗЗЗ

1

Ответы и объяснения

2014-03-26T00:13:26+04:00
Program chik;
var n,m,i,j,max:integer;
a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
begin
writeln('Введите размеры матрицы');
readln(n,m);
randomize;
for i:=1 to n do
for j:=1 to m d
oa[i,j]:=random(400)-200;
for i:=1 to n do
begin
max:=a[i,1];
for j:=1 to m do
if(a[i,j]>max)then max:=a[i,j];
b[i]:=max;
end;
for i:=1 to n do
write(b[i],' ');
end.