Найти из N чисел максимальное

@beast-dragon · Регистрация: 27.10.2009

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

Задача. Найти из N чисел максимальное. Каким по порядку было введено максимальное число? Указание: для номера максимального числа тоже нужно отвести специальную ячейку.

С нахождением максимального числа из 10 введенных справился, а вот как сделать, чтобы я мог узнать каким по счету было введено это число я не знаю. Помогите пожалуйста! И по возможности объясните свои действия.

Pascal

VAR  i,  chislo,  max   :Integer;
BEGIN
    ReadLn(max);                            
    for i:=2 to 10 do begin                 
        ReadLn(chislo);                         
        if  chislo>max  then  max:=chislo   
    end;
    WriteLn(max)                    
END.

@BOR1K · 29.10.2009, 19:31

По номеру элемента, т.е. когда ты его находишь, заведи еще одну переменную, и приравняй ей i.

Добавлено через 1 минуту

Delphi

VAR      i,  chislo,  max,n   :Integer;
BEGIN
        ReadLn(max);                                                    
        for i:=2 to 10 do begin                                 
                ReadLn(chislo);                                                 
                if  chislo>max  then  
                   begin
                    max:=chislo;
                    n:=i;       
                    end;
 
        end;
        WriteLn(max) ;  
        WriteLn(n);                                
END.

@beast-dragon · 29.10.2009, 19:40 **[ТС]**

Вот спасибо

@beast-dragon 0 / 0 / 0 Регистрация: 27.10.2009 Сообщений: 5
	29.10.2009, 19:40 [ТС]	3
	Вот спасибо 0