Составить программу для вычисления

[ss1112]

Составить программу для вычисления
U - сумма элементов массива с нечетными номерами;
R - количество нулевых элементов массива;
S - номер первого нулевого элемента массива.

[Sweta]

Вычисление суммы в цикле с изменением от 1-го элемента массива, до последнего с шагом 2;
Подсчет количества нулевых элементов с фиксацией первого в цикле с изменением от 1-го элемента массива, до последнего с шагом 1;
Вычисление по формуле.
Вас же где-то чему-то учат, какие либо примеры есть в написании программ, вот и показывайте, что сами делаете. Задание для Вас, а не для форумчан.

[newerow1989]

var p:array[1..10] of integer;
    i,u,r,s:integer;
    v:real;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=Random(10);
      Write(p[i],'  ');
   end;
   Writeln;
   Writeln;
   u:=0;
   r:=0;
   s:=0;
   For i:=1 to 10 do
   begin
      If i mod 2=0 then
         u:=u+p[i];
      If p[i]=0 then
      begin
         r:=r+1;
         If s=0 then
            s:=i;
      end;
   end;
   v:=u/(r+1)+s;
   Writeln(v:5:5);
   Readln;
end.