по поводу ето задачи
CONST
Nmax=500;
VAR
C:ARRAY[1..Nmax] of INTEGER;
N,i:INTEGER;
f:TEXT;
BEGIN
Assign(f,'C:\xxx');
ReSet(f);
N:=0;
While (Not EoF(f)) do
begin
INC(N);
Read(f,C[N]);
end;
Close(f);
Append(f);
WriteLn(f);
For i:=N downto 1 do
Write(f, C[i], ' ');
Close(f);
END.
она должна в текстовом выгледить так чтобы выдавала
например исходные файлы записаны 12345678 его нада удвоить а в коцне чтобы выгледело все в обртаном порядке ето насчет 1 задачи. а так когда включаю выдает тока одни 0 в токой строке 0
00
000
2 задача должна генерировать числа входящие в масив любые. тока второй вариант не работает почемуто у меня
http://www.tehnari.ru/imagehosting/2...578aa24bb3.png