ЗАДАЧА ** ПРОГРАММИРОВАНИЕ PASCAL ПО МАССИВАМ. Заполнение массива случайными числами. Ход...

Question

ЗАДАЧА НА ПРОГРАММИРОВАНИЕ PASCAL ПО МАССИВАМ. Заполнение массива случайными числами. Ход выполнения: а) Наберите программу program Pr2; Var Mas: array[1..100] of integer; n, i: integer; begin randomize; Writeln('введите размер массива'); Readln(n); For i:=1 to n do begin mas{i}:=-5+random(15); write(mas{i}, ' '); end; end. б) Измените программу, чтоб числа подбирались случайным образом в диапазоне от 0 до 20

Comments

mas[i]:=random(21);

---

https://znanija.com/task/30552030 Если не трудно, можно и это сделать, оно подобное.

Answer 1

var

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

   n, i: integer;

begin

   randomize;

   Writeln('введите размер массива');

   Readln(n);

   for i := 1 to n do

   begin

       mas[i] := random(20 - 0 + 1) + 0;

       write(mas[i], ' ');

   end;

end.