К произведению первых 5 чисел прибавить сумму 10 последних элементов массива - Turbo Pascal
Формулировка задачи:
Дан массив и 12 целых чисел. К произведению первых 5 чисел прибавить сумму 10 последних элементов массива.
Решение задачи: «К произведению первых 5 чисел прибавить сумму 10 последних элементов массива»
textual
Листинг программы
s:=0; p:=1 for i:=1 to 12 do begin if i in [1..5] then p:=p*a[i]; if i in [3..12] then s:=s+a[i]; end; s:=s:+p;