Дан массив из 10 целых чисел. Подсчитать сумму квадратов элементов, стоящих на нечетных местах.

[sanjer21]

Дан массив из 10 целых чисел. Подсчитать сумму квадратов элементов, стоящих на нечетных местах. Числа в диапазоне от -5 до 5.
Что то вроде того,но выполняется не верно.помогите

program qq;
uses crt;
var a:array[-5..5]of integer;
i,sum,n:integer;
begin
for i:=-5 to 5 do begin
a[i]:=random(10);
write(a[i]:2);
if i mod 2 <>0 then sum:=sqr(a[i])+sum;
end;
writeln;
writeln('сумма элементов  =',sum);
end.

________
1. На форуме для своих решения своих проблем нужно создавать новую тему, не надо "залазить" в чужую тему

2. Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

массив из 10 чисел описывается так:

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

если Вы его хотите заполнить случайными числами от -5 до 5 (включая граничные значения: [-5..5])
тогда это делается так:

  for i:=1 to 10 do begin
      a[i]:=random(11)-5;
      ...

переменную, которую вы используете для накопления суммы, КРАЙНЕ желательно ОБНУЛИТЬ перед использованием:

   sum := 0;

остальное более-менее правильно, в целом у Вас нормальное решение.