Работа с одномерными массивами чисел, (сумма, произведение, формирование нового массива). Опции

[Russel]

Задание №4.
Наход. в файле.

program lab4;
uses crt;
var f,d: array [1..8] of real;
c,s:real;
i:integer;
begin
for i:=1 to 8 do
begin

writeln ('vvedite f',i);
read (f[i]);
writeln ('vvedite d',i);
read (d[i]);

{ Препод сказал, что надо из файла. Как я понимаю из текстового, там в строке числа надо задать...}
end;

s:=0;
s:=s+f[i];

{ Здесь что-то не понравилось...}
for i:=1 to 8 do
begin
c:=s*(f[i]-2.5)/d[i];
writeln ('c',i,'=',c:8:1);
end;
end.

Выручите пожалуйста! По возможности объясните всю прожку плиз....
И ещё: преподу на показать контрольный просчет... Как его здесь сделать?
Спасибо!

М

Ставь теги!! Вопросы загоняй в комментарии Файлы doc - нельзя. Сделай картинку. Lapp