РЕБЯТ СПАСАЙТЕ
оформить заполнение массива D [1..23]

//Вариант заполнения массива случайными числамиconst n = 23;var d:array[1..n]of integer;  i:integer;begin  for i:=1 to n do d[i]:=random(21) - 10;   for i:=1 to n do write(d[i]:3);end.//Вариант заполнения массива с клавиатурыconst n = 23;var  d:array[1..n]of integer;  i:integer;begin  for i:=1 to n do readln(d[i]);   for i:=1 to n do write(d[i]:3);end.