Среднее Арифметическое Опции

[X-MEN]

Привет. Мне нужна помощь в решении задачи:
В классе n учеников, за контрольную они получили разные оценки необходимо вывести на экран список учеников и рядом их оценки, а затем вывести средний бал.

[volvo]

Код

uses crt;
var
  x:array[1..100] of integer;
  st:array[1..100] of string;
  i,n:integer;
  s:extended;
Begin
 clrscr;
 write('Vvedite kol-vo y4enikov ');
 readln(n);
 s:=0;
 for i:=1 to n do
  begin
     write('Vvedite Familiyu',i,'-go u4enika '); readln(st[i]);
     write('Vvedite Ocenky',i,'-go u4enika '); readln(x[i]);
     s:=s+x[i];
  end;

clrscr;
writeln('Familiya':30, ' Ocenka: ':12);
for i:=1 to n do
  writeln(st[i]:30, x[i]:12);
writeln;
writeln('Sredny bal = ',s/n:2:1);
readln;
End.

Так тоже не получается?

Сообщение отредактировано: volvo - 26.01.2005 21:43