// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Положительных- ',
ReadSeqReal(ReadInteger('n=')).Where(t->t>0).Count)
end.
Пример
n= 6
2.3 -1.15 0 4.9 6 -10
Положительных- 3
begin
while true do begin
var a:=ReadInteger;
if a=0 then break;
Writeln(a)
end
end.
Пример
12
12
18
18
41
41
4
4
0
begin
var a:=ReadReal('a=');
var a2:=a*a;
Writeln('a^7=',a*a2*Sqr(a2))
end.
Пример
a= 3.26
a^7=3913.1203087558