В паскале: Inc(n);
В С++: n++;
[3.37]
49₁₀ = 61₈ = 110 001₂
53₁₀ = 65₈ = 110 101₂
64₁₀ = 100₈ = 1 000 000₂
150₁₀ = 226₈ = 10 010 110₂
266₁₀ = 412₈ = 100 001 010₂
[3.39]
29₁₀ = 1D₁₆ = 1 1101₂= 11 101₂ = 35₈
43₁₀ = 2B₁₆ = 10 1011₂ = 101 011₂ = 53₈
54₁₀ = 36₁₆ = 11 0110₂ = 110 110₂ = 66₈
120₁₀ = 78₁₆ = 111 1000₂ = 1 111 000₂ = 170₈
206₁₀ = CE₁₆ = 1100 1110₂ = 11 001 110₂ = 316₈
Const n=20;
var x : array[1..n] of integer;
i, k1, k2 : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(221)-70;
write(x[i],' ');
end;
writeln;
k1:=0; k2:=0;
for i:=1 to n do
begin
if x[i] > 0 then k1:=k1+1;
if x[i] < 0 then k2:=k2+1;
end;
writeln('k1=',k1,' k2=',k2);
<span>end.
Пример:
Исходный массив:
73 -14 70 32 25 -31 110 117 11 -41 122 129 -49 54 65 57 -32 -49 110 -25
<span>k1=13 k2=7</span></span>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
ReadlnString.ToUpper.Println('')
end.
<u><em>Тестовое решение:</em></u>
Это тестовая строчка
ЭТО ТЕСТОВАЯ СТРОЧКА