TurboPascal дан массив c15 определите количество нечетных чисел составить программу

Question

Информатика

Ефросинья

3 марта, 14:23

TurboPascal дан массив c15 определите количество нечетных чисел составить программу

+1

Ответы (1)

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

Люциан · Answer 1

Const n=15;

var c:array[1 ... n] of integer;

k, i:integer;

begin

Randomize;

for i:=1 to n do begin

c[i]:=random (51) ;

write (c[i],' ') ;

end;

writeln;

k:=0;

for i:=1 to n do

if c[i] mod 20 then k:=k+1;

writeln ('k = ', k) ;

end.

Пример:

34 45 49 29 19 18 20 29 10 13 35 24 48 42 20

k = 7