помогите решить задачу!, Нужно решить задачу с помощью процедуры и функции. Опции

[natik3]

В общем надо решить следующую задачу: Известно, что в следующем фрагменте программы массив матрица содержит оценки студентов группы, фамилии которых перечислены в типе фамилий

 type 
 fam=(Ivanov,Petrov,Sidorov); 
 pred=(Algebra,Russkii,Informatika); 
 var 
 matr:array[fam,pred] of integer 

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

[IUnknown]

Может, мы все-таки увидим, как все эти фрагменты были собраны в одну программу? Или нам надо собрать самим, убедиться что ошибки нет (при правильной последовательности ее не будет) и опять затеять обсуждение на полсотни постов по методу "испорченный телефон"?

P. S. Стоп. У тебя тип называется Pred? Напрасно. Уже есть функция с тем же именем, и вполне возможно, что у тебя просто конфликт между именами типа и функции.

Сообщение отредактировано: IUnknown - 3.04.2012 20:56