Сформировать одномерный массив из 15 целых числе, элементы которого выбрасываются случайным образом из отрезка от - 3 до 6.

Подсчитать количество нечетных чисел.

оформить дружественный интерфейс.

Question

Информатика

Эвелинка

3 июня, 05:33

Сформировать одномерный массив из 15 целых числе, элементы которого выбрасываются случайным образом из отрезка от - 3 до 6.

Подсчитать количество нечетных чисел.

оформить дружественный интерфейс.

+4

Ответы (1)

Знаете ответ?

Любомир · Answer 1

Var

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

i, k:integer;

begin

k:=0;

for i:=1 to 15 do

begin

a[i]:=random (10) - 3;

writeln ('a[', i,']=', a[i]) ;

if a[i] mod 2 0 then k:=k+1

end;

writeln;

writeln ('Kol-vo nechetnih chisel = ', k) ;

end.