<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125
Const n=14;
var
a,b,c: array[1..n] of integer;
i: byte;
begin
randomize;
for i:=1 to n do begin;
a[i]:=random(-10,10);
b[i]:=random(-10,10);
end;
println (a);
writeln;
println (b);
writeln;
for i:=1 to n do begin;
c[i]:=a[i]*b[n+1-i];
end;
println (c);
end.
---------------------------------
Пример:
9 10 -10 6 3 -4 -3 6 4 -9 6 -9 2 -10
-3 -10 9 -4 8 -9 -6 -1 -9 6 6 -10 0 -9
-81 0 100 36 18 36 3 -36 -36 -72 -24 -81 -20 30
1.
var i,n:integer; s:real;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 2.28333333333333
2.
var x,a,s:real; i:integer;
begin
write('x = '); readln(x);
a:=x; s:=x; i:=1;
while i<11 do
begin
i:=i+2;
a:=x*x*a;
s:=a/i;
end;
writeln('s = ',s);
end.
Результат:
x = 3
s = 16104.2727272727
<span> </span>\
1.Едет из А в В по грунтовой дороге
![t= \frac{S}{V} = \frac{80}{20} =4](https://tex.z-dn.net/?f=t%3D%20%5Cfrac%7BS%7D%7BV%7D%20%3D%20%5Cfrac%7B80%7D%7B20%7D%20%3D4)
затратит 4 часа
2.Едет сначала из А в С,потом из С в В.
Из А в С дорога по шоссе,40 км со скоростью 40 км/ч.
![t= \frac{40}{40} =1](https://tex.z-dn.net/?f=t%3D%20%5Cfrac%7B40%7D%7B40%7D%20%3D1)
<u>затраченное время 1 час</u>
далее из С едет в В по грунтовой дороге,скорость 20 км/ч,расстояние от С до В равно 50 км
![t= \frac{50}{20} =2.5](https://tex.z-dn.net/?f=t%3D%20%5Cfrac%7B50%7D%7B20%7D%20%3D2.5)
<u>затраченное время 2.5 часа</u>
<em>Итого:</em>1 час+2.5 часа=3.5 часа,это время будет минимальным для него.
<em><u>Ответ:3.5 часа минимальное время на путь из А в В.</u></em>