Информатика. С клавиатуры вводится 20 чисел. Найти сумму минимального и максимального...

Question

Информатика.
С клавиатуры вводится 20 чисел. Найти сумму минимального и максимального элемента, а также сумму 3,7,10 элемента

Answer 1

// PascalABC.NET 3.3

begin
  var a:=ReadArrInteger('Введите 20 чисел:',20);
  Writeln('Max + min = ',a.Max+a.Min);
  Writeln('Сумма 3+7+10 элементов= ',a[2]+a[6]+a[9]);
end.

Пример:
Введите 20 чисел:
12 75 94 20 65 31 24 28 64 49 72 55 60 14 98 30 16 44 85 77
Max + min = 110
Сумма 3+7+10 элементов= 167