Срочно!!!25б. Напишите, пожалуйста, программу(паскаль).Условие: Ввести N любых чисел....

Question

Срочно!!!25б. Напишите, пожалуйста, программу(паскаль).Условие: Ввести N любых чисел. Вычислить P,S,K и выдать на экран (P-произведение отрицательных чисел, S-сумма положительных чис., K-количество отрицат. чисел)

Answer 1

Var
   N,K,A:integer;
   S,P:real;
Begin
Write('N = ');ReadLn(N);
K:=0;
P:=1;
For N:= 1 to N do
    Begin
    Read(A);
    if A < 0 then
       Begin
       P:=P*A;
       K:=K+1
       End
    else if A > 0 then S:=S+A;
    End;
WriteLn('S = ',S);
WriteLn('P = ',P);
WriteLn('K = ',K);
End.