5. массив из 22 элементов требуется заполнить случайными чи-
слами на отрезке [10; 30]. будут ли в массиве одинаковые
элементы? почему?

ответ:

да

объяснение:

30 - 10 + 1 = 21 целочисленное значение на указанном интервале. поэтому в массиве из 21, 22, 23 и более элементов всегда будут одинаковые.

//pascal abc.net v3.1 сборка 1172 var   na, nb, nc: integer; function minim(ar: array of real; n: integer): real; var   i: integer;   min: real; begin   min : = maxreal;   for i : = 0 to n - 1 do //динамические массивы индексируются с 0       if min > ar[i] then min : = ar[i];   minim : = min; end; begin   randomize;   write('na: '); readln(na); //ввод размерностей   write('nb: '); readln(nb);   write('nc: '); readln(nc);   var a : = arrrandomreal(na, 1, na); //инициализация динамических массивов   var b : = arrrandomreal(nb, 1, nb);   var c : = arrrandomreal(nc, 1, nc);   a.println(' ');   writeln('min: ', minim(a, na));   b.println(' ');   writeln('min: ', minim(b, nb));   c.println(' ');   writeln('min: ', minim(c, nc)); end. пример ввода: na: 3 nb: 4 nc: 5 пример вывода: 2.45183664907321 2.12786289357015 2.8286734511278 min: 2.12786289357015 3.47355249453036 1.03827733129183 2.42042394141686 2.17556424353996 min: 1.03827733129183 3.9204495134393 3.64103751938838 3.57791954771519 4.31033914690387 4.13624760282051 min: 3.57791954771519