Список абитуриентов, сдавших вступительные экзамены на оценки 4 и 5 и возраст менее 20 лет

@Sacrolash · Регистрация: 29.06.2014

Студворк — интернет-сервис помощи студентам

Привет всем!Помогите сделать такую вот задачку: написать с помощью файлового типа данных
список абитуриентов, сдавших вступительные экзамены на оценки 4 и 5 и возраст менее 20 лет

Pascal

type abit = record
          fio:string;
          e,v:real;
          end;
var i,n: integer;
    f:file of abit;
    x:abit;
begin
assign(f,'g:\abc.txt');
rewrite(f);
read(n);
for i:= 1 to n do
     begin
      read(x.fio);
      read(x.e);
      read(x.v);
      write(f,x);
     end;
close(f);
reset(f);
while not eof(f) do
  begin
       read(f,x);
       if x.e=4 and 5 then
       begin
       IF x.v<20 then
        writeln(x.fio);
      end;
  end;
close(f);
end.

у меня выдает ошибку ввода, что не так? Заранее спасибо.

@Sacrolash · 30.06.2014, 21:00 **[ТС]**

тему клоз, сделал.

@Sacrolash 1 / 1 / 1 Регистрация: 29.06.2014 Сообщений: 147
	30.06.2014, 21:00 [ТС]	2
	тему клоз, сделал. 0

Опции темы