1. Растровый графический файл содержит черно-белое изображение с 16 градациями серого цвета размером 100*100 точек. Сколько времени потребуется для передачи изображения по сети со скоростью модема 14400 бит/сек? 2. Оценить информационный объем цифрового стереозвукового файла длительность звучания 1 секунда при глубине 16 бит и частоте дискретизации 24 кГц.
3. Чему равна сумма чисел 57(в 8) и 46(в 16)? Ре­зуль­тат пред­ставь­те в де­ся­тич­ной си­сте­ме счис­ле­ния.
4. В тер­ми­но­ло­гии сетей TCP/IP мас­кой сети на­зы­ва­ет­ся двоичное число, определяющее, какая часть IP-адреса узла сети от­но­сит­ся к ад­ре­су сети, а какая - к ад­ре­су самого узла в этой сети. Обыч­но маска за­пи­сы­ва­ет­ся по тем же правилам, что и IP-адрес. Адрес сети по­лу­ча­ет­ся в ре­зуль­та­те применения по­раз­ряд­ной конъюнкции к за­дан­ным IP-адресу узла и маске. По за­дан­ным IP-адресу узла и маске опре­де­ли­те адрес сети.
IP-адрес узла: 219.131.146.97
Маска: 255.255.192.0

Var N1:array[1..10] of integer;
    N2:array[1..15] of integer;
    R1:array[1..10] of integer;
    R2:array[1..15] of integer;
    min1, min2, max1, max2, i:integer;
    R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
 if R1[i]<min1 then
  begin
  min1:=R1[i];
  R1min:=i;
  end else
   begin
   if R1[i]>max1 then
    begin
    max1:=R1[i];
    R1max:=i;
    end;
   end;
for i:=1 to 15 do
 if R2[i]<min2 then
  begin
  min2:=R2[i];
  R2min:=i;
  end else
   begin
   if R2[i]>max2 then
    begin
    max2:=R2[i];
    R2max:=i;
    end;
   end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
end.

Могу реализацию на питоне предложить, писать меньше, чем на c ++.

import random

a = []

count = 0

for i in range (20):

a.append(random.randint(1000)

for i in a:

if i % 2 == 0:

count += 1

print (count)

Примечания.

Там, где пробел между текстом и скобками, он не нужен (здесь просто без них написать не даёт). Так же нужно следить за отступами, чтобы компилятор не ругался. Если рандомный список вы всё-таки решите считывать, то меняете в первом цикле после append(int(input()).

Randint даёт рандомное число на указанном промежутке, если нужен промежуток больше, просто меняйте цифру в скобках. Count - счётчик.