Сформировать и вывести на экран последовательность из n элементов, заданных датчиком случайных чисел на интервале [-23, 34].
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Program posled; Var a: array[1..100] of integer; i, n: integer; Begin Write (‘Сколько элементов? ’); Readln (n); For i=1 to n do begin a[i]:= Random(58)-23; writeln (a[i],’ ‘); end; End. |
Похожие записи: