К произведению первых 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;

Оцени полезность:

14   голосов , оценка 3.714 из 5
Похожие ответы