• Дано целое число N и набор из N чисел. Найдите номер первого наибольшего и номер последнего наименьшего числа в наборе.
    Ввод
    Целое число N и набор из N чисел в одной строке.
    Вывод
    Номер первого наибольшего и номер последнего наименьшего числа в наборе.
    Ввод
    10 4 3 1 7 9 1 9 2 5 6
    Вывод
    5 6

    Пожалуйста очень срочно

Ответы 2

  • program bistro;var i,mi,ma,a1,a2,a,n:integer;begin    read(n);    mi:=1;    ma:=1;    read(a);   a1:=a;   a2:=a;    for i:=2 to n do         begin            read(a);            if a > a1            then begin                            ma:=i;                            a1:=a;                         end;             if a <= a2            then begin                           mi:=i;                             a2:=a;                         end;        end;    writeln(ma,' ',mi);end.
    • Автор:

      cloudup7d
    • 6 лет назад
    • 0
  • program z1;var a:array [1..100] of integer;i,n,max,min: integer;beginwriteln ('vvedite n');readln(n);max:=0;min:=1000;for i:=1 to n dobegin readln a[i];end;for i:=1 to n dobegin if a[i]>maxthen max:=a[i]end;begin if a[i]>minthen min:=a[i]end;writeln (max,min);end.
    • Автор:

      buckley
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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