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

Question

Информатика

Малина

1 марта, 05:05

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

+4

Ответы (1)

Знаете ответ на вопрос?

Андроника · 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.