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

Question

Информатика

Карион

4 ноября, 18:06

Дан массив целых чисел из 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.