О Адамзаттың
роботтехника
саласындағы
жетістіктері
Зерттеу сұрақтары мен бағыттары
Қазіргі роботтехниканың дамуы.
Робот жасаудың қарқынды дамуы.
Роботтехника саласындағы соңғы жетістік-
терге мысалдар келтіру.
Болашақта роботтың қандай түрлері пайда
болуы мүмкін?
Роботтың шамадан тыс көбейіп кетуінің
адамзатқа қандай пайдасы мен зияны бар?
Робот көркем әдебиет беттерінде,
Робот жайлы түсірілген кинолар мен мульт-
фильмдер.
Болашақтың роботы
сың
және мультфильмдер
зерттеу тапсырмалары
Робот жайлы кітап, кино​

Будем переводить скорость передачи в Мбайт/с, поскольку объем файла задан в Мб. Можно также решать задачу, приводя 5 Мб к битам, но так пусть связисты решают, биты - это их хлеб, а в информатике привычнее байты.

1 Мб = 2²⁰ б = 2²⁰×8 бит = 2²³ бит; 5 Мб = 5×2²³ бит
128000 бит/с = 1000×2⁷ бит/с и за 1 минуту с такой скоростью будет передано 60×1000×2⁷ = 60000×2⁷ бит.
Тогда время на передачу файла составит (5×2²³) / (60000×2⁷) = 5×2¹⁶/60000 = 5×2⁶×2¹⁰/60000 = 5×64×1024/60000 ≈ 5.46 мин

Если есть калькулятор, можно сразу считать на нем, без степеней.
5 Мб = 5×1024×1024×8 = 41 943 040 бит.
За минуту модем передает 128 000×60 = 7 680 000 бит
Время передачи файла составит 41 943 040 / 7 680 000 ≈ 5.46 (мин)

// PascalABC.Net 3.0, сборка 1066

const
  n=5;
var
  a:array[1..n,1..n] of integer;
  x:array[1..n] of double;
  i,j,k:byte;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4)
      end;
    Writeln
  end;
  Writeln('*** Массив x ***');
  for j:=1 to n do begin
    x[j]:=0; k:=0;
    for i:=1 to n do
      if a[i,j] mod 2=0 then begin
        x[j]:=x[j]+a[i,j]; Inc(k)
      end;
    if k>0 then x[j]:=x[j]/k;
    Write(x[j]:0:5,' ')
    end;
  Writeln
end.

Тестовое решение:
*** Исходный массив ***
 -10  18  -8 -15   5
 -21 -18   6  -2   9
  -7  22  -4   3  14
  21  16 -10 -18  -9
  17   3 -14 -18  12
*** Массив x ***
-10.00000 9.50000 -6.00000 -12.66667 13.00000