var
N, i, P, O, Z : Integer;
R : Real;
begin
Write('n = '); ReadLn(N);
P := 0; O := 0; Z := 0;
// для for // для while // для repeat
for i := 1 to N do // i := 0; // i := 0;
// while i < N do // repeat
begin // begin // Inc(i)
// Inc(i);
Write(i, ' число = '); ReadLn(R);
case sign(R) of
+1 : Inc(P);
-1 : Inc(O);
0 : Inc(Z);
end;
end; // end; // until i = N;
WriteLn('Процент положительных чисел: ', P*100/N);
WriteLn('Процент отрицательных чисел: ', O*100/N);
WriteLn(' Процент нулевых чисел: ', Z*100/N);
end.
мотороллерлер мен сені гана жаксы және ғылым министрлігі мемлекеттік сатып алу мемлекеттік сатып алу туралы нормативтік құқықтық база мемлекеттік сатып алу туралы нормативтік құқықтық база мемлекеттік органның құрылуы туралы тарихи анықтама азаматтарды қабылдау кестесі әкімдік ауданның атқарушы билігінің құрылымы сыбайлас жемқорлықпен күрес туралы нормативтік құқықтық қазақстан республикасының мемлекеттік сатып алу туралы нормативтік құқықтық актілер қазақстан республикасының конституциясы сот істерінің