каждний пассажир ждал поезд 2 часа
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
Много воды, но о большой скорости никто не говорил, верно?)
Float s,l,v,r;
float Pi=3,14;
cout<<"R= ";
cin>>r;
s=Pi*(pow(r,2);
p=2*Pi*r;
v=(4/3)*Pi*pow(r,3);
cout<<"Длина окружности "<<l<<endl;
cout<<"Площадь круга "<<s<<endl;
cout<<"Объем шара "<<v<<endl;