Номер и значение наименьшего массива

@Lexx2012 · Регистрация: 15.06.2010

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

Найти номер и значение наименьшего положительного нечетного элемента массива А(15)

@Mиxaил · 16.06.2010, 13:32

Pascal

var a:array[1..15] of integer;
    i,imin,min:integer;
begin
for i:=1 to 15 do
    read(a[i]);
min:=MaxInt;
for i:=1 to 15 do
   if (a[i]>0) and (odd(a[i])) and (a[i]<min) then
      begin
         min:=a[i];
         imin:=i;
      end;
writeln('# - ', imin);
writeln('min : ',min);
readln;
end.

@Lexx2012 · 16.06.2010, 14:27 **[ТС]**

А что за оператор odd ??

@Puporev · 16.06.2010, 14:54

А что за оператор odd ??

Определяет четность и нечетность числа, если число нечетное, то odd(a)=true

@Lexx2012 0 / 0 / 0 Регистрация: 15.06.2010 Сообщений: 13
		1
	Номер и значение наименьшего массива 16.06.2010, 13:19. Показов 1249. Ответов 3 Метки нет (Все метки) Найти номер и значение наименьшего положительного нечетного элемента массива А(15) 0

@Lexx2012 0 / 0 / 0 Регистрация: 15.06.2010 Сообщений: 13
	16.06.2010, 14:27 [ТС]	3
	А что за оператор odd ?? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.06.2010, 14:54	4
	А что за оператор odd ?? Определяет четность и нечетность числа, если число нечетное, то odd(a)=true 1