К произведению первых 5 чисел прибавить сумму 10 последних элементов массива - Turbo Pascal

Формулировка задачи:

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

Код к задаче: «К произведению первых 5 чисел прибавить сумму 10 последних элементов массива - Turbo Pascal»

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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы