Ответ:

Ввод:

1.Ввод массива с клавиатуры

For i:=1 to 10 do read(m[i] )

2.Заполнение массива случайными числами

For i:=1 to 10 do m[i]:=random(100)

3.Заполнение массива констант

Const

M:array[1..10] of integer=(4,3,67,6,0,62,7,3,8,1)

Вывод:

1 способ:

Вывод с пробелом в строку

For i:=1 to 10 do write(a[i], ' ') ;

2 способ:

Вывод с комментариями

For i:=1 to 10 do writeln

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