Ввод-вывод в файл на Pascal

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 8 мес., 2 нед. назад.

  • Автор
    Сообщения
  • #3761

    Напишите программу, которая осуществляет ввод n элементов в файл, после чего выводит его содержимое.

    program file_1;
    uses crt;
    var
      n, i, x: integer;
      f: file of integer;
    begin
      clrscr;
      write('Количество чисел > '); read(n);
      assign(f, 'fail');
      rewrite(f);
      for i:=1 to n do
      begin
        write(i, ' элемент > '); read(x);
        write(f, x);
      end;
      writeln('Содержимое файла:');
      reset(f);
      for i:=1 to n do
      begin
        read(f, x);
        write(x, ' ');
      end;
      close(f);
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.