оператор выбора case of

[wlll]

оператор Как заполнять массив?
1. Как константу.
2. Случайные числа.
3. Вручную.

[Don Karleone]

readln(k);
case k of
  1: for i:=1 to 10 do
          a[i]:=n;               //все элементы массива получают значение n
  2: for i:=1 to 10 do
        a[i]:=random(100);  //случайное заначение
  3: for i:=1 to 10 do
        readln(a[i]);           //ручной ввод
end;