massiv

[legita]

задан вектор P.Написать программу вычислентя отношения произведения положительных элементов вектора к сумме элементов,больших среднего арифметического всех значений.

Program Massiv_1;
Type
vector=array[1..100] of real;
var
P:vector;
ot,x,pp,S,Sym:real;
i,n:integer;
begin
writeln('vvedite vector P');
for i:=1 to n do readln(P[i]);
S:=0;
Sym:=S+P[i];
S:=Sym/i;
x:=1;
for i:=1 to n do begin
if P[i]>0 then pp:=P[i]*x;
end;
for i:=1 to n do begin
if Sym>S then
ot:=pp/Sym;
end;
writeln('ot=',ot:5:2);
end.

[Stilet]

Поправлю на вскидку.

Program Massiv_1;
Type
vector=array[1..100] of real;
var P:vector;
  ot,x,pp,S,Sym:real;
  i,n:integer;
begin
 writeln('vvedite vector P');
 S:=0;pp:=1;
 for i:=1 to n do begin
  readln(P[i]);
  if P[i]>0 then pp:=P[i]*x;
  Sym:=S+P[i];
 end;
S:=Sym/i;
Sym:=0;

for i:=1 to n do begin
 if P[i]>s then Sym:=Sym+P[i];
end;

writeln('ot=',pp/sym);
end.

[legita]

спасибо!!!