На программирование 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
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.