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

Question

Ева Федорова

Информатика

25 мая, 18:38

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

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Михаил Журавлев · Answer 1

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.