Program n1; const n=8; var a: array[1..n] of integer; S,Sch,P,i: integer; begin S:=0; P:=1; Sch:=0; for i:=1 to n do begin write('введите ',i,' число: '); readln(a[i]); end; for i:=1 to n do begin if ( a[i] mod 2=0) then Sch:=Sch+a[i] else P:=P*a[i]; S:=S+a[i]; end; writeln('сумма четных: ',Sch); writeln('произведение нечетных: ',P); writeln('среднее арифметческое: ',S/n); end.
const n=8;
var a: array[1..n] of integer;
S,Sch,P,i: integer;
begin
S:=0;
P:=1;
Sch:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a[i]);
end;
for i:=1 to n do
begin
if ( a[i] mod 2=0) then Sch:=Sch+a[i]
else P:=P*a[i];
S:=S+a[i];
end;
writeln('сумма четных: ',Sch);
writeln('произведение нечетных: ',P);
writeln('среднее арифметческое: ',S/n);
end.