Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Задача на тему цикл с параметром Паскаль.

Определить среди 10 чисел какое из них наибольшее и вывести порядковый номер этого числа.

Ответ оставил Гость

Program P;
Var
    n, i : Integer;
    max, iMax: Integer;
Begin
    Write(Enter 10 numbers );
    
    for i := 1 to 10 do
    Begin
        Read(n);
        
        if i = 1 then
        Begin
            max := n;
            iMax := i;
        End
        else
            if n > max then
            Begin
                max := n;
                iMax := i;
            End;
    End;
    
    WriteLn(Max = , max);
    WriteLn(index = , iMax);
    
    ReadLn;
End.