Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста! Написать программу , которая вычислит отдельные суммы четных и нечетных чисел натурального ряда и их произведения

Ответ оставил Гость

Const
N = 7;
Var
A:array[1..N]of integer;
i:integer;
S,Sn,P,Pn:real;
Begin
S:=0;
Sn:=0;
P:=1;
Pn:=1;
For i:= 1 to N do
Begin
A[i]:=random(7)+1;
Write(A[i], );
if A[i] mod 2 = 0 then
Begin
S:=S+A[i];
P:=P*A[i];
End
else
Begin
Sn:=Sn+A[i];
Pn:=Pn*A[i];
End
End;
WriteLn;
WriteLn(Сумма чётных элементов =,S);
WriteLn(Произведение чётных элементов =,P);
WriteLn(Сумма НЕчётных элементов =,Sn);
WriteLn(Произведение НЕчётных элементов =,Pn);
End.