Минимум среди нечетных Опции

[asder]

Приветствую! Помогите решить простую задачу на паскале:
"Даны N целых чисел. Найти и вывести на экран минимальное среди нечётных чисел."

[asder]

Напишите, как эту задачу оформить в самом паскале

[DarkWishmaster]

Напишите, как эту задачу оформить в самом паскале

Uses Crt;
var N,min,number:integer;
Begin
write('N= ');
readln(n);
writeln('Insert ',N,' numbers: ');
min:=MaxInt;
while n>0 do
  begin
    readln(number);
      if odd(number) then  
         if number<min then min:=number;
    dec(n);
  end;
writeln(Min);
readln;
end.

[Lapp]

DarkWishmaster, три вопросика к тебе. Сумеешь правильно ответить - ставлю + в репу без разговоров (за помощь новичкам)). Первые два вопроса - в комменетах:

Uses Crt;     // зачем тут эта строка?
var N,min,number:integer;
Begin
write('N= ');
readln(n);
writeln('Insert ',N,' numbers: ');
min:=MaxInt;
while n>0 do
  begin
    readln(number);
      if odd(number) then              // почему эта строка сдвинута?
         if number<min then min:=number;
    dec(n);
  end;
writeln(Min);
readln;
end.

Последний вопрос такой:
Что выведет твоя прога в таком случае:
n=2
10
20
и в таком случае:
n=2
10
32767

[DarkWishmaster]

DarkWishmaster, три вопросика к тебе. Сумеешь правильно ответить - ставлю + в репу без разговоров (за помощь новичкам)). Первые два вопроса - в комменетах:

1) Uses Crt обычно я всегда исп. потому что всегда исп. ClrScr, но тут забыл )
2)Ну сдвинул потому что хотел подчеркнуть это строку
3)ага, промажка. Нужна переменая boolean чтоб всё исправить.

Uses Crt;    
var N,min,number:integer; q:boolean;
Begin ClrScr;
write('N= ');
readln(n);
writeln('Insert ',N,' numbers: ');
min:=MaxInt;
q:=false;
while n>0 do
  begin
    readln(number);
    if odd(number) then              
      if number<min then 
          begin
            min:=number;
            q:=true;
          end;
    dec(n);
  end;
if q=true then writeln('min= ',min) else writeln('не существует такое число');
readln;
end.

[Lapp]

Ответы, увы, требуют уточнений.. Даю тебе возможность это сделать )).

1) Uses Crt обычно я всегда исп. потому что всегда исп. ClrScr, но тут забыл )

А _зачем_ ты "всегда исп." ClrScr? Эт. треб. по усл.?

2)Ну сдвинул потому что хотел подчеркнуть это строку

Сдвиг имеет вполне конкретный смысл. Нельзя вешать на торт табличку "горький" просто потому, что хочется пометить, что он сладкий, а таблички "сладкий" нету.. Хочется подчеркнуть - выдели комментариями, выдели пустыми строками снизу и сверху - но _не_сдвигом_.

3)ага, промажка. Нужна переменая boolean чтоб всё исправить.

Uses Crt;    
var N,min,number:integer; q:boolean;
Begin ClrScr;
write('N= ');
readln(n);
writeln('Insert ',N,' numbers: ');
min:=MaxInt;
q:=false;
while n>0 do
  begin
    readln(number);
    if odd(number) then              
      if number<min then 
          begin
            min:=number;
            q:=true;
          end;
    dec(n);
  end;
if q=true then writeln('min= ',min) else writeln('не существует такое число');    // тут (Lapp)
readln;
end.

Вопрос: почему в той строке, которую я пометил, ты не написал так:

if (true=((q=true)=true))=true then ...

- ?

2 Krjuger: я лично ничего не имею против разбиения условия на два оператора (для ясности или чтоб устранить неоднозначность полного/краткого вычисления логики при компиляции)