Регистрация
яблоко50
31.03.2022 03:43
Информатика
Есть ответ 👍

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

103
470
Посмотреть ответы 2

Ответы на вопрос:

Lololoshka98
Lololoshka98
4,8(53 оценок)

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.

Объяснение:

idrisovsa
idrisovsa
4,7(13 оценок)

ответ: глаза к комьютеру слишком близко ноги ровно осанку выпрямить и подстроится к комьютеру

Объяснение:

Популярно: Информатика