Задание:
Программа заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. (паскаль)
Решение:
Vara: array [1… 100] of integer; i: integer; beginrandomize; write ('массив: '); writeln; beginfor i: =1 to 100 doa[i]: =random (40) -20; end; for i: =1 to 100 dowriteln (a[i]); end.
Знаете другой ответ?