Найти все нечетные элементы массива целых чисел на паскале

Question

Информатика

Анастасьюшка

9 марта, 13:13

Найти все нечетные элементы массива целых чисел на паскале

+3

Ответы (1)

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

Костюха · Answer 1

Var

a:array[1 ... 10] of integer;

i:integer;

begin

for i:=1 to 10 do

begin

a[i]:=random (10) + 1; / / или любой другой способ задать массив

if ((a[i] mod 2) 0) then write (a[i]) ;

end;

end.