Заполнить одномерный массив случайными числами вещественного типа и вывести на экран консольного вывода,количество элементов массива являются константной величиной равной 6

Вопрос школьника по предмету Информатика

Заполнить одномерный массив случайными числами вещественного типа и вывести
на экран консольного вывода,количество элементов массива являются константной величиной равной 6

Ответ учителя по предмету Информатика

Const

N = 6;

Var

A:array[1..N] of real;

i:integer;

Begin

For i:= 1 to N do

    Begin

    A[i]:=random()*100;

    Write(A[i]:0:3,’ ‘)

    End;

End.