На программирование pascal по массивам. заполнение - вопрос №9558953 от SsssDddddddd 27.06.2022 20:32

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

SsssDddddddd · 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.