Дан массив целых чисел из 12 элементов. К сумме первых 8 прибавить произведение последних...

Question

Дан массив целых чисел из 12 элементов. К сумме первых 8 прибавить произведение последних 7 элементов.

Answer 1

Var a: array[1..12] of integer;
i,s,p :integer;
begin
for i:=1 to 12 do read (a[i]);
s:=o; p:=1;
for i:=1 to 8 do s:=s+a[i];
for i:=6 to 12 do p:=p*a[i];
write('Искомый результат = ', s+p);
end.

Comments

спасибо)