Помогите пожалуйста!!!!! Паскаль! Получил плохую оценку! :(((((((((
1. Дан массив из 10 элементов. Найти сумму минимального и максимального элементов.
2. Дан массив из 10 элементов, значения которых равны соответственно (1, 5, 25, 35, 45, 55, 105, 0, 2, 10). Найти минимальное значение оканчивающееся на 5. Заменить все элементы массива, большие 50 на это значение и вывести новый массив.
Ответы
Ответ дал:
0
===== 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.Print
end.
Приложения:
![](https://st.uroker.com/files/712/712aa93bcdba2857a52036de53719c8f.jpg)
Ответ дал:
0
спасибо огромное
Ответ дал:
0
Пожалуйста
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад