Я как понял из двоичной в десятичную
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
Print('Отрицательных:',ArrRandom(100,-50,50).Println
.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
-22 8 50 -18 -37 -43 3 -18 50 -2 -33 -23 -32 41 -37 -6 -20 0 -14 40 6 -43 20 25 4 12 -1 -36 -44 -46 9 35 12 30 19 1 -36 8 -30 23 -48 38 47 34 -50 -47 27 48 -31 -13 46 -46 -42 29 -43 -29 38 -26 28 2 9 -12 -25 46 40 -17 15 -12 -28 12 -21 22 -20 13 37 19 -39 37 25 1 35 1 45 19 -42 4 26 34 23 -3 14 41 31 19 -36 15 12 -49 45 18
Отрицательных: 42
Program help;
Uses Crt;
Const n = 10; (* Размер массива *)
Var a : Array[1..n] of Integer; (* Массив с числами *)
i : Integer;
Begin
Randomize;
ClrScr;
Writeln('Массив: ');
For i := 1 to n do
Begin
a[i] := random(601) - 300; (* Заполняем рандомными числами *)
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)
if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then
a[i] := 0; (* Обнуляем числа кратные 3 и не кратные 5 *)
End;
Writeln('Массив после изменения: ');
For i := 1 to n do
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)
End.
var
v:array[1..100] of integer;
i,j,n,b:integer;
begin
randomize;
write('vvedite razmernost'' massiva: '); readln(n);
writeln('============ Ishodnii massiv ============='); writeln;
//Заполним массив случайными числами
for i := 1 to n do
begin
v[ i]:=random(100)-50;
write(v[ i]:4);
end;
writeln;
// организуем сортироваку от минимального
// к максимальному элементу массива
for i:=1 to n-1 do
for j:=i+1 to n do
if v[ i]>v[ j] then
begin
b:=v[ i];
v[ i]:=v[ j];
v[ j]:=b;
end;
writeln;
write('=========== Otsortirovannii massiv =======');writeln;writeln;
write('ot min k max: ');writeln;
for i := 1 to n do
write(v[ i]:4); writeln; writeln;
write('ot max k min: '); writeln;
for i := n downto 1 do
write(v[ i]:4);
readln;
end.
Var a: integer;
begin
readln(a);
a := a * a;
writeln(a);
end.