Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.