Определите количество элементов массива, являющихся нечетными числами

@Tatuana16 · Регистрация: 24.10.2013

Author24 — интернет-сервис помощи студентам

Дан числовой массив А, состоящий из n натуральных чисел. Определите количество элементов массива, являющихся нечетными числами.

@Ryder95 · 25.10.2013, 00:00

Сообщение от Tatuana16

Дан числовой массив А, состоящий из n натуральных чисел. Определите количество элементов массива, являющихся нечетными числами.

Delphi

var n,i,s:integer;
     a[1..1000] of integer;
begin
 readln(n);
 s:=0;
 for i:=1 to n do
  readln(a[i]);
 for i:=1 to n do
  if a[i] mod 2<>0 then inc(s);
 writeln(s);
 readln;
end.

@Tatuana16 · 25.10.2013, 00:04 **[ТС]**

Спасибо большое)

@Tatuana16 0 / 0 / 0 Регистрация: 24.10.2013 Сообщений: 11
		1
	Определите количество элементов массива, являющихся нечетными числами 24.10.2013, 23:55. Показов 1947. Ответов 2 Метки нет (Все метки) Дан числовой массив А, состоящий из n натуральных чисел. Определите количество элементов массива, являющихся нечетными числами. 0

@Tatuana16 0 / 0 / 0 Регистрация: 24.10.2013 Сообщений: 11
	25.10.2013, 00:04 [ТС]	3
	Спасибо большое) 0

Опции темы

Определите количество элементов массива, являющихся нечетными числами

Решение