Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача по одномерному массиву
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Ольга
Кто может помочь с программой, откликнитесь!

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

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

СПАСИБО!!!!!!
Oleg
Вроде так:
Код
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];
Ольга
Спасибо, Олег!
Сейчас попробую запустить...
Oleg
Забыл, в конце надо еще p:=p*s; - это и будет результат
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.