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

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

Задать свой вопрос
Вероника
Пробуй через оператор mod,полного ответа незнаю поетому в ответы не пишу
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 2lt;gt;0 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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт