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

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.