Показать сообщение отдельно
  #5  
Старый 27.06.2013, 12:19
djquins djquins вне форума
Прохожий
 
Регистрация: 26.06.2013
Сообщения: 6
Версия Delphi: Delphi XE4
Репутация: 10
По умолчанию

Цитата:
Сообщение от Mrak
Код:
k:=0;
for i:=1 to kol do // kol - количество элементов массива 
 if (mass[i] mod 2 <> 0) then k:=k+1; // mass - массив чисел, k - количество нечетных
Огромное, человеческое спасибо.)
Ответить с цитированием