Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача по одномерному массиву

Автор: Ольга 28.05.2003 14:00

Кто может помочь с программой, откликнитесь!

Дан одномерный массив чисел (Х9999)
Вычислить S=(X1+X2+X3)(X4+X5+...+X8)(X9+...+X15)...(X980i+...+X9999)
Индекс первого слагаемого каждой суммы - квадрат

Примечание: цифры при иксах - это нижний индекс, а не степень.

СПАСИБО!!!!!!

Автор: Oleg 28.05.2003 15:50

Вроде так:

Код
p:=1;
s:=0;
k:=4;
for i:=1 to n do
if i=k then
begin
  p:=p*s;
  s:=a[i];
  k:=k*2;
end else s:=s+a[i];

Автор: Ольга 28.05.2003 20:00

Спасибо, Олег!
Сейчас попробую запустить...

Автор: Oleg 29.05.2003 11:41

Забыл, в конце надо еще p:=p*s; - это и будет результат