ЗАДАЧА НА ПРОГРАММИРОВАНИЕ 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
Answers & Comments
Verified answer
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.