Написать программу которая запрашивает N целых чисел и сообщает сколько было введено нечетных чисел

Question

Информатика

Женюша

9 января, 08:00

Написать программу которая запрашивает N целых чисел и сообщает сколько было введено нечетных чисел

+2

Ответы (1)

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

Евсевия · Answer 1

Program asd; const n=5; / / любое число n

Var k, i:integer; a:array[1 ... n] of integer;

Begin

k:=0;

For i:=1to n do

read (a[i]) ;

For i:=1 to n do begin

If a[i] mod 20 then k:=k+1; end;

Writeln ('k=', k) ;

End.