Даны 5 целых чисел. Посчитайте минимально возможную и максимально возможные суммы выбрав...

Question

Даны 5 целых чисел. Посчитайте минимально возможную и максимально возможные
суммы выбрав ровно 4 числа из заданных изначально.

Answer 1

Const n = 5;
var
a: array[0..n-1] of longint;
max, min, sum: longint;
i : byte;
begin
writeln ('Введите ', n, ' целых чисел: ');

for i:=0 to n-1 do
begin
read (a[i]);
inc (sum, a[i]);
if a[i]>a[max] then max:=i;
if a[i]end;

writeln ('Макс. сумма 4-ех элементов: ', sum-a[min]);
writeln ('Мин. сумма 4-ех элементов: ', sum-a[max]);

end.