Решить в паскале
Даны действительные числа a1,......, a24. Получить последовательность b1,........, b10, где b1=a1+a2+.....+a24, b2= a1^2+a2^2+.......+a24^2,........ b10=a1^10+a2^10+.......+a24^10.

1

Ответы и объяснения

2013-12-01T15:41:38+00:00
Program chisla;
var i:integer; s:real
a,b:array[1..100,1..100] of real;
begin
s:=0;
for i:=1 to 24 do
readln a[i];
for i:=1 to 24 do  
begin
b[i]:=s+ exp(i*ln(a[i]);
writeln (b[i]); end;
end.