Сформировать файл тестовых данных целого типа. Опции

[Romka]

Сформировать файл тестовых данных целого типа.Найти сумму элементов файла,принадлежащего интервалу [-10,10] .И блок схему к этой программе.
Помогите решить,а то я с этой задачей запарился уже :molitva:

[Romka]

Укажите ошибку в этой программе:

Program Lab_9;
Uses Crt;
var:longint;a:array[-10;10] of integer;
f1,f2:file of integer;
begin
      clrscr;
For i:=-10 to 10 do begin
Write('a[',i,']=');
readln(a[i]);
end;
assign(f1,'prev.bin');
assign(f2,'vtor.bin');
rewrite(f1);
For i:=-10 to 10 do
Write(f1,a[i]);
close(f1);
rewrite(f2);
resert(f1);
For i:=-10 to filesize(f1) do
begin
read(f1,a[i]);
If a[i]>0 then
Write(f2,a[i]);
end;
close(f2);
assign(f2,'vtor.bin');
resert(f2);
For i:=-10 to filesize(f2)
do begin
read(f2,a[i]);
writeln(a[i]);
end;
close(f2);
End.

Какая здесь ошибка и сделайте пожалуйста блок схему к этой программе.

Сообщение отредактировано: volvo - 25.05.2005 10:07