Массивы

[Andrey121121]

Помогите решить,не получается

[Mad_Cat]

как пробовал покажешь?

[Andrey121121]

uses crt;
var
begin

[Leshii]

1. Вопросы?

Program cc;
Uses crt;
const n=15;
var a: array [1..n] of integer;
    i, s: integer;
    u, r: integer;
    v: real;
begin
clrscr;
writeln('Vvedite massiv');
for i:=1 to n do begin
    write('A[',i,']:=');
    readln(a[i]);
end;
u:=0;
for i:=1 to n do begin
 if a[i] mod 2<>0 then u:=u+i;
end;
writeln('Summa nechet elementov U:=',u);

for i:=1 to n do
 if a[i]=0 then begin
    s:=i; break;
end;
writeln('Nomer pervogo nylevogo elementa S:=',s);

for i:=1 to n do
 if a[i]=0 then begin
    r:=r+1;
 end;

writeln('kolichestvo nylevux elementov massiva R:=',r);


v:=(u/(r+1))+s;

writeln('V:=',v:3:2);
readln;
end.