Question

realizari un program care,citind de la tastatura 3 nr reale,calculeaza suma celor pozitive.

Answer 1

s:=0;
for i:=1 to 3 do
begin
          write('x=');
          readln(x);
           if x>0 then s:=s+x;
end;
sper sa iti fie de folos :)