Дан целочисленный массив D из 16 элементов, найти сумму первых восьми элементов массива и произведение оставшихся восьми элементов

Question

Информатика

Авдуля

21 марта, 07:54

Дан целочисленный массив D из 16 элементов, найти сумму первых восьми элементов массива и произведение оставшихся восьми элементов

+3

Ответы (1)

Знаете ответ?

Авдотьюшка · Answer 1

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.