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

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

Question

Аксюха

13 ноября, 08:40

+5

Ответы (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.