Задайте массив из 12 целых чисел с генератора случайных чисел на интервале [-10,10]. Запишите в текстовый файл все положительные числа этого массива

Объяснение:

f: File of Integer;

 x,s: Integer;

BEGIN

Assign(f,'1.dat');

Rewrite(f);

For var i:=1 to 10 do

Write(f,Random(100));

Reset(f);

Writeln('Исходный файл:');

While not Eof(f) do

begin

 Read(f,x);

 Write(x,' ');

end;

Writeln;

s:=0;

Writeln('Полученный файл: ');

For var i:=FileSize(f)-1 downto 0 do

begin

 Seek(f,i);

 Read(f,x);

 s:=s+x;

 Write(x,' ');

end;

Writeln;

Writeln('Сумма = ',s);

END.