• Напишите программу выводящую индекс наименьшего числа 3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 81

Ответы 4

  • Тут два элемента с минимальным значением.
  • program HelloWorld;var mas:array[1..14] of integer; i,men:integer;begin randomize(); for i:=0 to 15 do begin mas[i]:=random(10); write(mas[i]:3); end; men:=mas[1]; for i:=2 to 15 do if mas[i] < men then men:=mas[i]; writeln(men);end.
    • Автор:

      natalie
    • 6 лет назад
    • 0
  • Под это подставить сможете ?
    • Автор:

      moody
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=Arr(3,9,1,3,5,8,5,3,6,7,6,5,4,6,1,81); a.Println;  a.IndexesOf(t->t=a.Min).Select(t->t+1).Printlnend.Результат3 9 1 3 5 8 5 3 6 7 6 5 4 6 1 813 15
    • Автор:

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

Войти через Google

или

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

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

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