Question

Сформируйте массив из 9 целых случайных чисел, принадлежащих
промежутку (5:10]. Подсчитайте количество нечетных элементов.

ПОМОГИТЕ ПОЖАЛУЙСТА!!!​

Answer 1

Программа:

Pascal:

var

arr: array[1..9] of integer;

i,k: integer;

begin

randomize;

for i := 1 to 9 do begin

  arr[i] := random(6, 10);

  if arr[i] mod 2 = 1 then inc(k);

end;

writeln('Массив: ', arr);

writeln('Нечётных элементов в массиве: ', k);

end.