Как задать значение элементов массива без использования процедуры ввода
Можешь через функцию рандома
Massif[n] := 1; _______________