Программа заполнения массива из 100 чисел случайными значениями из диапазоа от - 20 до 20. (паскаль)

Question

Информатика

Автоном

27 декабря, 22:07

Программа заполнения массива из 100 чисел случайными значениями из диапазоа от - 20 до 20. (паскаль)

+4

Ответы (1)

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

Эмилианыч · Answer 1

const

n = 100;

var

a:array[1 ... 100] of integer;

i:integer;

begin

randomize;

for i : = 1 to n do

begin

a[i] : = random (41) - 20;

write (a[i], ' ') ;

end;

writeln;

end.