Задача: Программирование циклических процессов.
Задание такое же, что и в предыдущей задаче. Только теперь действия выполняются не в массиве, а в файле.
Нужно вычислить:
1. Номер минимального по модулю элемента;
2. Сумму модулей элементов, расположенных после первого отрицательного элемента.
Вот, начал... Ток во-первых Паскаль выдаёт ошибку: "100: Disk read error.", указывая на строку "read (f, buf);", хотя диск и файл существуют. Во-вторых, не могу завершить задачу (вторую часть). Помогите, плз...
Program OAIP_L03;
Var
i, a, min, sum, buf : Longint;
f : file of Longint;
Begin
assign (f, 'D:\File_2.dat');
reset (f);
read (f, min);
min:=abs(min);
a:=1;
while not eof (f) do begin
read (f, buf);
if abs(buf) < min then begin
min:=abs(buf);
a:=filepos (f)-1;
end;
end;
writeln ('nomer min. el. - ', a);
close (f);
End.