Обработка записей, список студентов со средним баллом Опции

[TyKuC]

Здравствуйте....помогите с заданием...3 задания сделал осталось 1 не как не могу понять как его сделать.. .

Даны массивы: F1..,F10 - фамилии студентов
B1..,B10 - средние баллы за семестр и задан R - стипендиальный фонд на группу.
Стипендия назначется в пределах фонда студентам со средним баллом, большим 4 Напечатать список студентов со средним баллом выше 4 и указать количество стипендий на группу.

[TyKuC]

Это всё нужно сделать в графическом режиме((...я попробывал сделать всё как положено пока без графического режима....и всё равно не получается . Он выдаёт ошибку. Как теперь сделать что бы всё заработало ?!

Код

var
a,i,count:integer;
b: array [1..10,1..10]  of real;
begin
count := 0;
for i := 1 to 10 do
if b[i] > 4 then begin
   writeln(a[i]);
   inc(count);
writeln('count = ', count);
readln;
end.

Сообщение отредактировано: TyKuC - 30.05.2006 19:30