Odpowiedzi

2010-02-23T22:15:31+01:00
Program zadanie;
uses crt;
var
i,j,n:longint;
suma:real;
ujemne : array[1..1000] of real;
begin
clrscr;
j:=0;
suma:=0;
i:=1;
repeat
Write('Podaj liczbe nr ',i,': ');
readln(n);
if n < 0 then
begin
j:=j+1;
ujemne[j]:=1 / n;
suma:=suma+ujemne[j];
end;
i:=i+1;
until n=0;
clrscr;
Writeln('Liczb ujemnych: ',j);
Write('Suma odwrotnosci liczb ujemnych wynosi: ',suma:0:2);
readkey;
end.