Question

Заполните массив 20 случайными целыми числами из промежутка [1;10] выведите на экран элементы массива через запятую

Answer 1

Код:

program znaniya;

var

 i : integer;

 a : array[0..19] of integer;

begin

 for i:=0 to 19 do begin

   a[i] := random(1,10);

 end;

 writeln(a)

end.