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.
вялікія прыгожыя вочы; у водсвеце вячэрняй зары зусім пунсовым зрабіўся яе твар. Некалі на спатканнях яна часта рабіла так: сярод сур'ёзнай размовы аб самых высокіх матэрыях раптам падскаквала, зрывала каштан, ці галінку ліпы, ці проста ліст, клала яго на руку і «страляла». Або, калі яны часам выходзілі ўвечары за горад, раптам прапаноўвала: «Давай навыперадкі!» яна прызналася, што саромелася свайго беднага ўбрання: яна была з беднай сям'і, расла без маці. Саша стала нейкая больш стрыманая, паважная.
I congratulate you on Friendship Day! wish you good luck. I will be always there for you. I will share all my joys and sorrows. I will always help you.
Best wishes, kisses and hugs,
Anton