Написать код одномерного массива.

[timothy_1_7]

Турбо Паскаль. Для заданных с клавиатуры значений X1, X2...Xn; Y1, Y2... Yn вычислить значения величин S, P и Q по формулам:


я еще составил схему алгоритма

[timothy_1_7]

Мне это сегодня нужно сдать. Выручайте! вы последняя надежда

[Serge_Bliznykov]

во-первых, в формулах не вижу алгоритма вычисления переменной P. Вы не полностью условие задачи привели?..

во-вторых, в алгоритме есть условие, что если сумма модулей произведений больше суммы отношений элементов, тогда присвоить Q сумму модулей произведений, иначе - присвоить Q сумму отношений.

но в целом блок-схема вполне себе нормальная/рабочая!
что у Вас вызывает сложности при переносе фактически готового кода в код программы?!!

  WriteLn('Введите N'); Readln(N);
  for m:=1 to N do begin 
    WriteLn('Введите X(',m,') и Y(',m,')');
    Readln(X[m], Y[m]);
  end;
  S :=0;
  P := 0;
  Q :- 0;
  for m:=1 to N do begin
     S := S + abs(X[m])*abs(Y[m]);
     if Y[m]<>0 then 
        P := P + abs(X[m])/abs(Y[m]);
  end;
  if S>P 
     then Q := S
     else Q := P;

  WriteLn('Q = ',Q:1:3,' S = ',S:1:3,' P = ',P:1:3);
  Readln
     
end.