Сформировать 15 элементный массив случайным образом

Question

Информатика

Ванютя

5 декабря, 12:23

Сформировать 15 элементный массив случайным образом

+4

Ответы (1)

Знаете ответ на вопрос?

Прискилла · Answer 1

Var a: array [1 ... 15] of word; / / возьмем массив из 15 чисел

i : byte;

begin

randomize;

for i:=1 to 15 do / / заполняем исходный массив случайными числами (до 1000)

begin

a[i]:=random (1000) ;

writeln (i,' элемент массива ', a[i]) ;

end;

end.