Verified answer

Ответ:

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.