Дан целочисленный массив D из 16 элементов, найти сумму первых восьми элементов массива и произведение оставшихся восьми элементов
Answers & Comments
tuyia
Const n:=16; var d:array[1..n] of integer; i,a,c:integer; begin a:=0; c:=1; for i:=1 to n do readln(d[i]); for i:=1 to 8 do a:=a+d[i]; for i:=9 to 16 do c:=c*d[i]; writeln(a); writeln(c); end.
Answers & Comments
var
d:array[1..n] of integer;
i,a,c:integer;
begin
a:=0;
c:=1;
for i:=1 to n do
readln(d[i]);
for i:=1 to 8 do
a:=a+d[i];
for i:=9 to 16 do
c:=c*d[i];
writeln(a);
writeln(c);
end.