Паскаль
1
Дан массив из 10 элементов. Найти сумму минимального и максимального элементов.
2
Дан массив из 10 элементов, значения которых равны соответственно (1, 5, 25, 35, 45, 55, 105, 0, 2, 10). Найти минимальное значение оканчивающееся на 5. Заменить все элементы массива, большие 50 на это значение и вывести новый массив.
Помогите пожалуйста!
1
Дан массив из 10 элементов. Найти сумму минимального и максимального элементов.
2
Дан массив из 10 элементов, значения которых равны соответственно (1, 5, 25, 35, 45, 55, 105, 0, 2, 10). Найти минимальное значение оканчивающееся на 5. Заменить все элементы массива, большие 50 на это значение и вывести новый массив.
Помогите пожалуйста!
More Questions From This User See All
Answers & Comments
Ответ:
PascalABC.NET
#1
begin
var A := ArrRandom(12, -99, 99);
A.Println;
Println(A.Min + A.Max);
end.
#2
begin
var A := Arr(1, 5, 25, 35, 45, 55, 105, 0, 2, 10);
var m := A.Where(p -> p mod 10 = 5).Min;
for var index := 0 to A.Length-1 do begin
if A[index] > 50 then A[index] := m;
end;
A.Println;
end.
Объяснение: