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);
<span>end.</span>
Извини, но моя твоя, непонимай
4) DVD+RW
На CD-RW в принципе тоже можно, но перед этим надо полностью стереть все что там хранится и записать это заново. А первые два варианта - диски однократной записи.
Компьютер
.................