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

Question

Информатика

Эннафа

18 октября, 17:42

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

+1

Ответы (1)

Знаете ответ?

Эмиль · 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.