Задача про матрицу и одномерный массив. Опции

[Batia]

Задача такая:
**На основе матрицы A(4 строки, 5 столбцов) сформировать одномерный массив B из 5 элэментов. Каждий элемент Bk этого массива получает значение, равное полусумме ззначений наибольшего и наименьшего элементов в k-м столбце матрицы A.
Для вычисления полусуммы значений наибольшего и наименьшего элементов в произвольном столбцематрицы использовать процедуру.**
Никак не могу ее решить, а препод. что-либо объяснять отказывается.
Помогите, если сможете.

[Batia]

:

program Project2;

{$APPTYPE CONSOLE}
type m=array[1..100,1..100] of integer; mas=array[1..100] of integer;
var A:m;

uses
  SysUtils;
procedure vvod(m,n:integer;var x:m);{ввел}
var i,j: integer;
begin writeln('введите матрицу');
for i:=1 to m do
for j:=1 to n do
read(x[i,j]);
end;
procedure MasOut(n:integer,var p:mas,c:char);{вывел}
var i:integer;
begin
writeln('results for',c);
for i:=1 to n do
write(p[i];'');
writeln;
end;

А вот по поводу процедуры почти никаких идей!

Сообщение отредактировано: Altair - 27.11.2005 17:32