Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран — Pascal(Паскаль)

uses crt;
var a,i:integer;
    f:text;
begin
ClrScr;
Writeln('Vvedite elemnti: ');
Assign(f,'f.txt');
Rewrite(f);
repeat
Readln(a);
Write(f,a,' ');
until a=0;
close(f);
Reset(f);
while not eof(f) do
 begin
  Read(f,a);
  Write(a,'  ');
 end;
close(f);
Readln;
end.

Leave a Comment

5 + 2 =