Записать в файл 10 цифр вводимых пользователем
Записать в файл 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.
Не нашли ответ?
Похожие вопросы