массив - Помощь студентам

mila111189 · 13.01.2011, 22:59

Найти в массиве наибольшее нечетное число, турбо паскаль

Mad_Cat · 13.01.2011, 23:02

Код:

m=0;
i:=1;
while not odd(a[i]) and (i<=n) do inc(i);
m:=a[i];
for k:=i to n do 
if (odd(a[i])) and (a[i]>m) then m:=a[i];

13.01.2011, 22:59	#1
mila111189 Пользователь Регистрация: 27.10.2010 Сообщений: 23	массив Найти в массиве наибольшее нечетное число, турбо паскаль

13.01.2011, 23:02	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `m=0; i:=1; while not odd(a[i]) and (i<=n) do inc(i); m:=a[i]; for k:=i to n do if (odd(a[i])) and (a[i]>m) then m:=a[i];` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задан вектор X[20]. Положительные числа переписать в массив Y, а отрицательные в массив W	leha_demi	Помощь студентам	2	24.09.2011 18:12
Дан массив А(20). Получить массив В(20), в котором В(1)=А(2), В(2)=А(1), В(3)=А(4), В(4)=А(3) и т.д. Выве	nikita1	Помощь студентам	5	01.12.2010 18:16
Как конвертировать массив символов в массив байт	davinci	C++ Builder	6	30.10.2010 18:09
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P.	Marishkaa	Помощь студентам	2	12.01.2010 16:54
Упорядочить массив в порядке возрастания и напечатать входной и исходный массив.	TheVenny	Помощь студентам	3	26.11.2008 15:06