Сформировать одномерный массив

[Jambus]

Тема:Массивы...Сформировать одномерный массив из максимальных элементов столбцов матрицы.

Помоги-те пжл,буду очень признателен!

[Serge_Bliznykov]

так. приказ ясен. Разрешите выполнять?

[Jambus]

Если сможешь!помоги пжл..

[ByAlex]

Сообщение от Jambus

Если сможешь!помоги пжл..

Чаво не получается то?

[Jambus]

вот начало программы

uses crt;

const n=4;m=5;

Var a:array[1..n,1..m] of integer;

b:array[1..m] of integer;

max,i,j,k:integer;

Begin

randomize;

For i:=1 to n do

begin

For j:=1 to m do

begin

a[i,j]:=random(100);

write(a[I,j]:4);

помогите закончить!



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.