Даны действительные числа а1,...,а24. Получить последовательность в1,...,в10, где

[Наталья111]

Решить программу в Delphi:
Даны действительные числа а1,...,а24. Получить последовательность в1,...,в10, где

в1=а1+а2+...а24,

в2=а1^2 +а2^2 +...+а24^2 , ...

в10=а1^10 +а2^10 +...+а24^10 .

Помогите пожалуйста решить задачу! PLEASE!

[mihali4]

А где ваш код? Что вы сделали сами?
И что это за условие такое?

Даны действительные числа а1,...,а24.

А что за зверь а242 или а110...?

[Наталья111]

mihali4 У меня не получается! Вот прошу помощи! Хотя бы частичной.
Sorry! Это степени!

[KORN]

в первом случае все элементарно
есть массив a: array [0..23] of integer;
далее задаем им случайные значения через цикл

for i:=0 to 23 do
begin
randomize;
a[i]:=random(100);
end;

далее в переменную B1: integer; в цикле заносим все данные

for i:=0 to 23 do
B1:=B1+a[i];

для возведения в степень все тоже самое, только тебе еще надо добавить умножение числа само на себя N'ное количесво раз

[Наталья111]

Вы бы не могли ввиде модуля написать? ПОЖАЛУЙСТА!
А то если я завтра не сдам меня не допустят к сессии. :-(
ПОЖАЛУЙСТА ПОМОГИТЕ!

[Наталья111]

var
B1:integer;
i:integer;
a:array[0..23] of integer;
begin
for i:=0 to 23 do
begin
randomize;
a[i]:=random(100);
end;
for i:=0 to 23 do
B1:=B1+a[i];
end;
for i:=0 to 23 do
....
end.

Помогите пожалуйста, что делать дальше?

[s.Creator]

Так пойдет?

[Наталья111]

КОНЕЧНО! ОГРОМНЕЙШИЙ РАХМЕТ!!!!!! ВЫ МЕНЯ СПАСЛИ ОТ СМЕРТИ!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!! СПАСИБО!!!!!!!