Ввод массива

    *Поэлементный ввод с клавиатуры

    *Генерация случайных чисел

    *Задание по формуле

1.Поэлементный ввод с клавиатуры a[1..n]

writeln('введите элементы массива');

for i:=1 to n do readln(a[i]);

2.Генерация случайных чисел

randomaze;

for i:=1 to n do

a[i]:=random(10);

3.Задание по формуле

for i:=1 to n do

a[i]:= i*i;