А) 2Х(в кубе)
<span>б) (a+b/2a+b)(a+c) </span>
<span>в) sin*альфа*cos*бета - cos*альфа*sin*бета </span>
<span>г) П(пи)R(квадрат) </span>
<span>д) 1/2absin*альфа </span>
<span>е) sinх + cosх - х/х+1 </span>
<span>ж) Корень из: b(в квадрате) - 4ac </span>
<span>з) 2/abc </span>
<span>и) Корень из: х(кадрат) + y(кадрат) (БЕЗ корня) -1,5(х-3) </span>
<span>к) [х/у] - х/у </span>
<span>л) y*(m1m2/r(кадрат)) </span>
<span>м) Корень из: a(кадрат)+b(кадрат)-2abc*cosL</span>
Var
i, a: byte;
begin
Randomize;
for i:=1 to 3 do write(Random(101):4);
<span>end.</span>
1)
var
a:array[1..16] of integer;
i,k,s:integer;
begin
randomize;
For i:= 1 to 16 do
begin
a[i]:= -30+random(61);
write(a[i], ' ');
end;
For i:= 1 to 16 do
if a[i] < 0 then k:= k+1;
Writeln;
Writeln(k);
end.
Пример:
-21 4 -11 30 -16 -7 26 -14 -20 10 -18 8 -26 -13 -20 -15
11
2)
Изменить условие "if a[i] < 0 then k:= k+1;" на "if a[i] > 0 then s:= s +a[i];"
и "writeln(k);" на "Writeln(s);"