задача по массивам - Паскаль, Turbo Pascal, PascalABC.NET

Маша Килина · 21.04.2011, 17:21

Дано целое число N и набор из N целых чисел. Найти номер первого максимально нечетного числа из данного набора. Если нечетные числа в наборе отсутствуют, то вывести 0.

Mad_Cat · 21.04.2011, 17:26

Код:

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

21.04.2011, 17:21	#1
Маша Килина Новичок Джуниор Регистрация: 21.04.2011 Сообщений: 1	задача по массивам Дано целое число N и набор из N целых чисел. Найти номер первого максимально нечетного числа из данного набора. Если нечетные числа в наборе отсутствуют, то вывести 0.

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача по массивам С++	Valera24	Помощь студентам	8	22.12.2010 21:23
задача по массивам	мар5094	Паскаль, Turbo Pascal, PascalABC.NET	2	18.12.2010 16:04
задача по массивам!	Анна22	Паскаль, Turbo Pascal, PascalABC.NET	1	07.12.2010 00:12
Задача по массивам)	Flo	Помощь студентам	1	30.11.2010 22:09
задача по массивам с++	nurai	Общие вопросы C/C++	6	28.10.2009 13:22