Задача по информатика...

[Chacho]

program asdf;

type arr = array[1..10] of real;

var
a: arr;
i, count: integer;
P: real;

begin

count:=0; P:=1;

for i:=1 to 10 do
begin
write('a[',i,']=');
readln(a[i]);
end;

for i:=1 to 10 do
begin
if (i mod 2) = 1 then
P:=P*a[i];
if a[i]>0 then
count:=count+1;
end;

writeln('P=', P:5:2);
writeln('Broi polojitelni elementi: ', count);

readln;
end.

[lalalal]

Супер много ми помогна Chacho .. Мерси