Question

задать массив A(N) элементы которого являются членами ряда A(I) =I^3 не большими наперед заданного числа М>=1000 найти среднее значение элементов массива

Answer 1

const n =9; // Задаем кол-во элементов в массиве
var
i,sred:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
if i*i*i = 1000 then break;
a[i]:= i*i*i;
sred:=sred+a[i];
end;
writeln('Среднее значение элементов = ', sred/n);
end.