• Создать массив из 10 случайных чисел {-50;100}. Вывести. Найти в массиве минимальный элемент. Удалить его из массива. Вывести полученный массив. Предусмотреть вывод промежуточных данных. (pascal)

Ответы 1

  • // PascalABC.NET 3.3, сборка 1579 от 18.11.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(10,-50,100); a.Println;  var im:=a.IndexMin;  Writeln('Номер минимального элемента- ',im+1,', значение ',a[im]);  a:=(a[:im]+a[im+1:]).ToArray; a.Printlnend.Пример-14 -21 2 -29 45 -48 81 22 0 5Номер минимального элемента- 6, значение -48-14 -21 2 -29 45 81 22 0 5
  • Добавить свой ответ

Войти через Google

или

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

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

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