Задать вопрос Регистрация
Помочь другим

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

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

Ответы 1

  • 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years