Как записывается десятичное число 25 10 в двоичной системе счисления? ..

11001

Объяснение:

Деление уголком на 2, все остатки выносим в ответ

const N=6;

var i,sum,count,min,x,count_us,count_m,count_p:integer;

var arr: array[1..N] of integer;

begin

 read(x);

 sum:=0;

 count:=0;

 min:=99999;

for i:=1 to N do

 begin

 readln(arr[i]);

 sum:= sum + arr[i];

 if arr[i] mod 2 <> 0 then inc(count);

 if arr[i] < min then min:= arr[i];

 if (arr[i] > x) and (arr[i] mod 5 = 0) then inc(count_us);

 if arr[i]<0 then inc(count_m) else inc(count_p);

 end;

 if count_m > count_p then write('Отрицательных чисел больше')

 else write('Положительных чисел больше')

 // Тут сделай вывод а-д если надо

end.

Объяснение:

1) Произведение отрицательных чисел

uses crt;

var

a:array [1..100] of integer;

i,n,s:integer;

begin

clrscr;

write ('Введите количество элементов массива:');

readln (n);

for i:=1 to n do

a[i]:=random (15)-10;

write (a[i],' ');

writeln;

for i:=1 to n do

if a[i]<0 then

 s:=s*a[i];

writeln ('s=',s);

readln

end.

2) Сумма четных чисел

uses crt;

var

a:array [1..100] of integer;

i,n,s:integer;

begin

clrscr;

write ('Введите количество элементов массива:');

readln (n);

for i:=1 to n do

a[i]:=random (15)-10;

write (a[i],' ');

writeln;

for i:=1 to n do

if a[i] mod 2 = 0  then

 s:=s+a[i];

writeln ('s=',s);

readln

end.

3) Последнее попробуй сам решить. Удачи:)