Создать массив из n случайных чисел и вывести нечетные числа
Создать массив из n случайных чисел и вывести нечетные числа
Гость
Ответ(ы) на вопрос:
Гостьconst N=30;
var a: array [1..N] of integer;
i: integer;
begin
for i:=1 to N do
a[i]:=random (20);
if a[i] mod 2 <>0 then
wriiteln (a[i]); end.
Не нашли ответ?
Похожие вопросы