Помогите пожалуйста решить задачу, С массивами и вычислением Опции

[dipp]

Вот такую задачку задали,честно говоря незнаю,как сделать
А сдавать уже завтра,помогите пожалуйста
ЗЫ задача в аттаче

[klem4]

Ну в чем проблема - то ? Не умеешь работать с массивами ? Велкам: Массивы. Матрицы. Типичные задачи.

А вот основная часть решения ....

//...

if (b[1] <> 0) and (a[8] <> 0) then begin

  s1 := 0;
  s2 := 0;

  for i := 1 to 8 do begin
    s1 := s1 + a[i];
    s2 := s2 + b[i];
  end;

  s1 := s1 / b[1];
  s2 := s2 / a[8];

  t := s1 / s2; // чтобы не пересчитывать каждый раз

  for i := 1 to 5 do
   f[i] := t * c[i];
end;