program Random10;
var
C: array [1..10] of Integer;
i: Integer;
begin
Randomize;
for i := Low (C) to High (C) do
C [i] := Random (101);
Write ('Массив: ');
Write (C [i], ' ');
ReadLn;
end.
program Random10;
var
C: array [1..10] of Integer;
i: Integer;
begin
Randomize;
for i := Low (C) to High (C) do
C [i] := Random (101);
Write ('Массив: ');
for i := Low (C) to High (C) do
Write (C [i], ' ');
ReadLn;
end.