Подмножество объектов<span>, </span>имеющих общие признаки<span>, называется классом. </span>
Log(2) 32 = 5 Бит вот так это делается
Const n=10;
Var b,c;
a:array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
If a[i]>0 then b:=a[i]+b
else
inc(c);
Writeln(b,' ', c);
end.
var
a: array of integer;
n, i: integer;
begin
randomize;
write('Введите размерность массива: ');
readln(n);
Setlength(a, n);
writeln('Массив: ');
for i := 0 to n - 1 do
begin
a[i] := random(21) - 10;
write(a[i]:5);
end;
writeln;
writeln('Результат деления отрицательных элементов на 2: ');
for i := 0 to n - 1 do
begin
if a[i] < 0 then write(a[i] / 2:5)
else write(a[i]:5)
end;
<span>end.</span>