Question

пж (1,2,4) прошу, пожалуйста

Answer 1

// 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