Паскаль
1
Дан массив из 10 элементов. Найти сумму минимального и максимального элементов.
2
Дан массив из 10 элементов, значения которых равны соответственно (1, 5, 25, 35, 45, 55, 105, 0, 2, 10). Найти минимальное значение оканчивающееся на 5. Заменить все элементы массива, большие 50 на это значение и вывести новый массив
david2005317
2
22.03.2020 03:05
1
Другие вопросы по теме Информатика
Feshiondiva
19.10.2020 12:40
genЕsis
19.10.2020 12:40
MaliaCr
19.10.2020 12:40
алекс922
19.10.2020 12:40
Annakitte0
06.05.2020 11:29
OtlichnitcaAnna
23.04.2019 18:20
EeOneGuy1997
23.04.2019 18:24
vladislavaky
23.05.2019 18:08
пингвиниха20172018
23.05.2019 18:04
Популярные вопросы
- Кому посвящено у лукоморья дуб зеленый...
1 - Вставь сочетание чн.на нижней строке напиши слава с сочетанием чк.набример...
1 - Пример разговорного стиле, т.е монолог, диалог, из любого произведения....
2 - Ac=7 см, bc=6 см cos бета =0.8, найдите sin альфа...
2 - Тело движется с ускорением a = 12t^2 + 6t. найти уравнение скорости...
2 - Вычислить изменения внутренней энергии 2г водорода при изменении температуры...
1 - От куска пока не ответили пять шестых метров сколько метров ткани было...
2 - Биоценоз лиственного леса. определить жизнь каких животных к тому или...
2 - Какой не большой фантастический рассказ прочитать? для 4 класса: прочитать...
3 - Нам задали написать отзыв на стихотворение роберта бернса честная бедность...
1
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.
Объяснение: