Question

Составить программа заполнение массива случайными числами от 1 до 6

Answer 1

Ответ:

program massive;

var i: integer; a: array [1..6] of integer;

begin

randomize;

for i:=1 to 6 do a[i]:=random(100)

for i:=1 to 6 do write (a[i], ' ')

end.

Answer 2

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, 1, 6);

 a.Println;  // посмотреть, что получилось

end.