PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018
Внимание! Если программа не работает, обновите версию!
№1
function A(q, E, d: real) := q * E * d;
begin
var s := 0.0;
loop 3 do
begin
var (q, E, d) := ReadReal3('q, E, d = ');
s += A(q, E, d)
end;
Print('Средняя работа равна', s / 3:0:4)
end.
№2
procedure Cnt(a:array of integer);
begin
a.TakeWhile(t->t>=0).Where(t->t>0).Count.Println
end;
begin
var x:=ArrRandom(16,-20,25);
x.Println;
Cnt(x);
var y:=ArrRandom(20,-34,27);
y.Println;
Cnt(y);
var z:=ArrRandom(25,-50,50);
z.Println;
Cnt(z);
end.