// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 begin var n:=ReadInteger('n='); var a:=ReadArrInteger('Введите элементы массива:',n); var s:=0; var p:=1; for var i:=0 to n-1 do if Odd(i) then s+=a[i] else p*=a[i]; Writeln('sum=',s,', prod=',p) end.
Var n, i: Integer; sum, pr: LongInt; a: array[1..10000] of Integer; Begin sum := 0; pr := 1; readln(n); for i := 1 to n do begin read(a[i]); if a[i] mod 2=0 then sum := sum + a[i] else pr := pr*a[i]; end; writeln(sum,' ',pr); End.
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger('Введите элементы массива:',n);
var s:=0;
var p:=1;
for var i:=0 to n-1 do
if Odd(i) then s+=a[i] else p*=a[i];
Writeln('sum=',s,', prod=',p)
end.
Тестовое решение:
n= 5
Введите элементы массива: 18 39 -17 6 12
sum=45, prod=-3672
sum, pr: LongInt;
a: array[1..10000] of Integer;
Begin
sum := 0; pr := 1;
readln(n);
for i := 1 to n do begin
read(a[i]);
if a[i] mod 2=0
then sum := sum + a[i]
else pr := pr*a[i];
end;
writeln(sum,' ',pr);
End.