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

Question

Информатика

Анюся

2 февраля, 13:03

Сформировать 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.