Записать в файл 10 цифр вводимых пользователем

Question

Информатика

Евфросиния

4 июля, 06:59

Записать в файл 10 цифр вводимых пользователем

+4

Ответы (1)

Знаете ответ на вопрос?

Василько · Answer 1

Var s:string;

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

f:text;

i:integer;

begin;

for i:=1 to 10 do

readln (ar[i]) ;

assign (f,'text. txt') ;

rewrite (f) ;

for i:=1 to 10 do

begin;

str (ar[i], s) ;

write (f, s,' ') ;

end;

close (f) ;

end.