Паскаль! Получил плохую оценку! : 1. Дан массив из - вопрос №10741086110 от yfbft 30.12.2022 12:41

Question

Информатика: Паскаль! Получил плохую оценку! : 1. Дан массив из 10 элементов. Найти сумму минимального и максимального элементов. 2. Дан массив из 10 элементов, значения которых равны соответственно (1, 5, 25, 35, 45, 55, 105, 0, 2, 10). Найти минимальное значение оканчивающееся на 5. Заменить все элементы массива, большие 50 на это значение и вывести новый массив.

yfbft · Answer

===== PascalABC.NET =====begin  // 1  var a := ArrRandom(10, -99, 99);  a.Println;  Println( Сумма минимального и максимального равна , a.Min + a.Max);  // 2  var b := Arr(1, 5, 25, 35, 45, 55, 105, 0, 2, 10);  b.Println;  var m := b.Where(p - p mod 10 = 5).Min;  b.Transform(p - p 50 ? m : p);  b.Printend....