сказка500
25.05.2023 21:19

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ilya494
10.08.2020 18:09
// 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.Println
end.

Пример
-14 -21 2 -29 45 -48 81 22 0 5
Номер минимального элемента- 6, значение -48
-14 -21 2 -29 45 81 22 0 5
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота