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

Question

Информатика

Анюся

16 декабря, 07:06

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

+3

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