Паскаль! Получил плохую оценку! :
1. Дан массив из 10 элементов. Найти сумму минимального и максимального элементов.

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

mixa7132ozoc5l mixa7132ozoc5l    2   02.03.2020 13:34    0

Ответы
Черничка21 Черничка21  11.10.2020 16:32

===== 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.


Паскаль! Получил плохую оценку! : 1. Дан массив из 10 элементов. Найти сумму минимального и максимал
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика