Напишите программу для записи в файл десяти чисел вводимых с клавиатуры.

Var

i, temp : integer;

begin

assign (output, 'output. txt') ; rewrite (output) ;

for i to 10 do begin

read (temp) ;

write (temp) ;

end;

end.

файл output. txt должен быть создан.

Var f:text;

c:array [1 ... 10] of integer;

i:integer;

begin

for i:=1 to 10 do begin

writeln ('Введите ', i,' число') ;

read (c[i]) ;

end;

assign (f,'res. txt') ;

rewrite (f) ;

for i:=1 to 10 do

write (f,' ', c[i]) ;

close (f) ;

end.

Писал на Pascal ABC. Для того, чтобы работала, тебе нужно создать папку, и в этой папке сохранить данную программу. После запуска, тебе нужно будет ввести 10 чисел. Результат сохранится в той папке, в которой будет сохранена программа!