Question

Помогите пожалуйста, очень срочно, молю, написать код

Answer 1

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.