Ответы
Ответ дал:
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.
Ответ дал:
1
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, 1, 6);
a.Println; // посмотреть, что получилось
end.
Вас заинтересует
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад