Использование массива в функции

[Zaven]

Привет,такой вопрос...
Мне нужна сумма индексов элементов массива,которые являются степенями числа 2,но степени должны вычислятся и поместится в новый вектор с помощу функции.
Я написал...но выдает неверные знашения.Буду очень благодарен,если поможите...

Program N2;
type z=array[1..100] of real;
var x,y:z;
    s,i,j,n:integer;
Procedure nz(n:integer; var x:z);
var i:integer;
          begin
               for i:=1 to n do
               read(x[i]);
          end;     
Function deg2(n:integer;x:z):z;
var i,j:integer;
    y:z;
    p:real;
          begin
               j:=0;
               for i:=1 to n do
               begin
                    p:=1;
                    while p<x[i] do 
                    p:=p*2;
                    if p=x[i] then
                    begin
                         j:=j+1;
                         y[j]:=x[i];
                    end;
               end;
               deg2:=y;
          end;
begin
     read(n);
     nz(n,x);
     y:=deg2(n,x);
     s:=0;
     for i:=1 to j do
     s:=s+i;
     write(s);
end.

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

Модератор.

[min@y™]

Да откуда ж вы такие берётесь? Ну читать жеж неудобно!