За 10 секунд по каналу связи было передано 5 Кб информации. Скорость передачи данных равна: Варианты ответов: 512 байт/с 512 бит/с 4096 байт/с 64 бит/с

5 Кбит = 5 * 1024 бит = 5120 бит

5120 / 10 = 512 бит/с - ответ.

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.