1 program massiv4;
2 const
3 n = 10;
4 var
5 a : array[1..n] of integer;
6 i : integer;
7 begin
8 randomize;
9 for i:=1 to n do
10 a[i] := random(5,15);
11
12
13 write('Массив: ');
14for i:=1 to n do
15 write(a[i]:4);
16 writeln;
17
18 end.
// PascalABC.NET
begin
var a := ArrRandom(11, -11, 12);
a.Print
end.
1 program massiv4;
2 const
3 n = 10;
4 var
5 a : array[1..n] of integer;
6 i : integer;
7 begin
8 randomize;
9 for i:=1 to n do
10 a[i] := random(5,15);
11
12
13 write('Массив: ');
14for i:=1 to n do
15 write(a[i]:4);
16 writeln;
17
18 end.
// PascalABC.NET
begin
var a := ArrRandom(11, -11, 12);
a.Print
end.