Заполнить одномерный массив случайными числами вещественного типа и вывести

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

Question

Евдоким

8 февраля, 04:32

+1

Ответы (1)

Знаешь ответ?

Петя · 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.