Создать массив из n случайных чисел и вывести нечетные числа язык программирования - паскаль

Question

Информатика

Мартиниан

9 октября, 14:37

Создать массив из n случайных чисел и вывести нечетные числа язык программирования - паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Артём · Answer 1

Var a:array[1 ... 20] of integer;

i:integer;

begin

randomize;

for i:=1 to 20 do a[i]:=random (10) + 1;

for i:=1 to 20 do if a[i] mod 2 0 then write (a[i],' ') ;

end.