profile
Опубликовано 5 лет назад по предмету Информатика от sambulov2014

1.Массив из 10 элементов заполнить случайным образом и вывести на экран. Вставить элемент равный 100 после минимума. 2.Массив из 10 элементов заполнить случайным образом и вывести на экран. Удалить максимальный.

  1. Ответ
    Ответ дан Аккаунт удален
    // PascalABC.NET 3.1, сборка 1230 от 27.04.2016
    begin
      Println('*1*');
      var a:=ArrRandom(10,-99,99); a.Println;
      var imin:=a.IndexMin;
      if imin=a.Length-1 then a:=a+Arr(100)
      else a:=a[:imin+1]+Arr(100)+a[imin+1:];
      a.Println;
      Println('*2*');
      a:=ArrRandom(10,-99,99); a.Println;
      var imax:=a.IndexMax;
      if imax=a.Length-1 then a:=a[:imax]
      else a:=a[:imax]+a[imax+1:];
      a.Println
    end.

    Тестовое решение:
    *1*
    -52 -66 -56 55 -94 -53 28 -94 61 61
    -52 -66 -56 55 -94 100 -53 28 -94 61 61
    *2*
    62 -80 91 -85 -59 -58 20 23 -91 53
    62 -80 -85 -59 -58 20 23 -91 53
    1. Ответ
      Ответ дан sambulov2014
      Мы не так решаем.
    2. Ответ
      Ответ дан Аккаунт удален
      Поскольку Вы не написали в условии задании, как именно вы решаете, то никаких претензий предъявлять не можете
    3. Ответ
      Ответ дан Аккаунт удален
      Вы даже не потрудились указать ЯЗЫК ПРОГРАММИРОВАНИЯ !!!