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

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.

Объяснение:

#include <iostream>

using namespace std;

int main()

{

   int t, n;

   cin >> t >> n;

   int a[n];

   for (int i = 0; i < n; ++i){

       int mark;

       cin >> mark;

       a[i] = mark;

   }

   for (int i = -t; i <= t; ++i){

       cout << i << ": ";

       for (int j = 0; j < n; ++j)

           if(a[j] == i)cout << j + 1 << " ";

       cout << endl;

   }

   return 0;

}

Объяснение:

не знаю, что тут объяснять, вроде все просто.

P.s. Если , дайте , лучший ответ и жмякните на " ". Это мотивирует продолжать давать ответы.

человеку из комментариев за поправки.

uinput = input('трёхзначное натуральное число: ') # 123

numbers = [int(i) for i in uinput] # [1, 2, 3]

highest = max(numbers) # 3

lowest = min(numbers) # 1

numbers.pop(numbers.index(highest)) # [1, 2, 3] = [1, 2]

numbers.pop(numbers.index(lowest)) # [1, 2] = [2]

middle = numbers[0] # 2

# print(highest, lowest, middle) 3 1 2

num1 = str(highest) + str(middle) # '32'

if lowest == 0:

~~~~if middle == 0:

~~~~~~~~num2 = str(highest) + str(lowest)

~~~~else:

~~~~~~~~num2 = str(middle) + str(lowest)

else:

~~~~num2 = str(lowest) + str(middle) # '12'

print(num1 + ' - ' + num2 + ' = ' + str(int(num1) - int(num2))) # 32 - 12 = 20