Помогите решить и записать в "турбо паскале". В линейном массиве из 10 целых чисел найти количество нечетных чисел.

Помогите решить и записать в "турбо паскале". В линейном массиве из 10 целых чисел найти количество нечетных чисел.
Гость
Ответ(ы) на вопрос:
Гость
Program n1; var a: array[1..10] of integer; i,k: integer; begin randomize; writeln('исходный массив: '); k:=0; for i:=1 to 10 do begin a[i]:=random(15); write(a[i],' '); if a[i] mod 2<>0 then k:=k+1; end; writeln; writeln('количество нечетных: ',k); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы