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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.