Найти среднюю величину стипендии и вывести фамилии, имена и отчества студентов, чья стипендия меньше сред

[dark999]

Найти среднюю величину стипендии и вывести фамилии, имена и отчества студентов, чья стипендия меньше средней более чем на 20%

[MyLastHit]

So what?
заводите реальный массив стипендий студентов students[], и массив с ФИО FIO[] потом

const N=10;
var   i:integer;
      sr_znach:real;
      students:array[1..N] of real;
      FIO:array[1..N] of string;
begin
  for i:=1 to N do
  begin
    WriteLn('Введите ФИО студента');
    ReadLn(FIO[i]);
    WriteLn('Введите его стипендию');
    ReadLN(students[i]);
  end;
  stependia:=0;
  for i:=1 to N do
  stependia:=stependia+students[i];
  sr_znach:=stependia/N; 
  for i:=1 to N do
  if (students[i]<0.8*sr_znach) then
  writeln(FIO[i]);
энд.

И да, писал без компилятора, мне лень это компилировать. Ошибки сам отработай если есть.