Задание

Каким способом осуществляется ввод элементов массива?

randomize;

writeln('Введите количество элементов массива');

readln(n);

for i:=1 to n do

begin

a[i]:=random(50);

writeln('a['i']=)',a[i]);

end;

с помощью датчика случайных чисел

с клавиатуры

присвоением заданных значений