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.