Одномерный массив

[Katerina_K]

Здравствуйте!помогите с задачкой!

Вывести одномерный массив из 10 элементов,где каждый элемент равен 2*x^2-10,где х меняется от 5 с шагом 0,5 .Посчитать количество операций в цикле и среднее значение элементов.
Паскаль

[Mad_Cat]

k:=1;x:=5;dx:=0.5; avg:=0;
while (k<=10) do
begin
write(2*x*x-10);
avg:=avg+2*x*x-10;
inc(k);
x:=x+dx;
end;
avg:=avg/10;