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

Question

Информатика

Татуля

3 января, 20:18

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

+3

Ответы (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.