<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-20,40); a.Println;
Writeln('Кол-во отрицательных: ',a.Where(x->x<0).Count)
end.
<u>Пример</u>
n= 15
-1 -10 1 -7 2 4 -10 -5 9 -1 -16 -3 16 -7 6
Кол-во отрицательных: 9
дано: i=4
найти: N - ?
решение:
формула: N=2i => N=2×4, N=16
ответ: 16
№3
program fofgogjoj;
var
a,b,c,S,P:real;
begin
Writeln('Введите длину катета a');
Readln(a);
Writeln('Введите длину катета b');
Readln(b);
c:=sqrt(a*a+b*b);
P:=a+b+c;
S:=(1/2)*a*b;
Writeln('P=', P:0:2);
Writeln('S=', S:0:2);
end.
1024000 а кбит будет 1024
600000/1024=585,94
ответ:585,9 секунд