Запись в файл

@E71 · Регистрация: 15.04.2010

Author24 — интернет-сервис помощи студентам

Как записать массив в файл с использованием процедуры. Массив заполняется случайным образом.

@Demon-red · 03.05.2010, 23:14

Pascal

uses crt;
var a:array[1..10] of integer;
i,n:integer;
f:text;
procedure add;
var f:text;
begin
Assign(f,'work1.txt');
Rewrite(f);
for i:=1 to n do
 
write(f,a[i]:3);
close(f);
end;
 
begin
clrscr;
randomize;
readln(n);
for i:=1 to n do
begin
a[i]:=random(10);
end;
for i:=1 to n do
begin
write(a[i]:3);
end;
add;
readln;
end.

@E71 0 / 0 / 0 Регистрация: 15.04.2010 Сообщений: 14
		1
	Запись в файл 03.05.2010, 22:13. Показов 1049. Ответов 1 Метки нет (Все метки) Как записать массив в файл с использованием процедуры. Массив заполняется случайным образом. 0

	03.05.2010, 23:14

Запись в файл

Решение