Question

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

Answer 1

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.

Answer 2

а после константы нужны точка с зяпятой?

Answer 3

Разумеется