Посчитать суму квадратов елементов

[Игорь0802]

Помогите!! В Паскале надо решить задачку:Посчитать суму квадратов елементов, значения каких принадлежат [-10,12] и посчитать их количество. И это нужно сделать масивом!! Помогите, очень нужно!!

[Shurik(c)]

Создаешь массив, от -10 до 12, в цикле возводишь в степень(если нужно создаешь еще одни массив в который это все загоняешь), их количество 23 (ежу понятно). программка детская))))

[Игорь0802]

Текст напиши ПЛЗ!!

[Stilet]

Массив описывай так:

var a:array[1..10] of integer;

В цикле его вводи

for i:=1 to 10 do begin readln(a[i]);...

И тут же в цикле считай сумму

 if a[i] in [-10..12] summ:=summ+sqrt(a[i]);

и выводи на экран
Понятно?

[Игорь0802]

Да!! СПС!!