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

[Batia]

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

[Batia]

Попытался собрать все воедино, но возникает много ошибок, не знаю как их исправить, помогите пожалуйста.

program Project2;

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

 procedure vvod(m,n:integer;var x:tm);{ââåë}
var i,j: integer;
begin writeln('ââåäèòå ìàòðèöó');
for i:=1 to m do
for j:=1 to n do
read(x[i,j]);
end;
 Procedure PolSum(m : tM;ii : Byte;Var mOut : Real);
 begin
 min:=a[1,ii];
max:=a[1,ii];
For i:=2 to 4 do
  If a[i,ii]<min then min:=a[i,ii] else
    If a[i,ii]>max then max:=a[i,ii];
mOut:=(min+max)/2;
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;
begin
vvod(4,5,'x',x);
PolSum(x,ii,mOut);
MasOut(5,'B',B);
For i := 1 to 5 do begin
  PolSum(A, i, mOut);
  B[i] := mOut
end;
end.

Сообщение отредактировано: volvo - 1.12.2005 20:47