Задание:
1) заполните масив случайными числами от -10 до 20 элементов в массиве 10 вывести на экран в строку через точку сзапятой 2)
Решение:
Var tarray: array[1… 10] of integer; i: byte; beginfor i: =1 to 10 dobegin tarray[i]: =random (30) -10writeln (tarray[i], '; '); end; end.
Знаете другой ответ?