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

[Batia]

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

[volvo]

Batia, все (ну, почти все) нормально сделано... Есть 2 основные ошибки:

1) не описываешь переменные, которые используются

Procedure PolSum(m : tM;ii : Byte;Var mOut : Real);
var min, max, i: integer; { <--- Это надо добавить !!! }

и эти переменные - глобально:

type
  tm=array[1..4,1..5] of integer;
  mas=array[1..5] of real; { <--- Именно Real а не Integer }

var
  A: tm;
  B: mas;
  i: integer;
  mOut: real;

2) Количество и порядок следования параметров в описании процедуры и при ее вызове НЕ должны меняться... А у тебя - меняются... Основная часть должна быть такой:

...
vvod(4,5,x);
For i := 1 to 5 do begin
  PolSum(A, i, mOut);
  B[i] := mOut
end;
MasOut(5,B,'B');
...