Даны 5 целых чисел. Посчитайте минимально возможную и максимально возможные
суммы выбрав ровно 4 числа из заданных изначально.
Нет комментариев
Ответы
Гость 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]<a[min] then min:=i;
end;
writeln ('Макс. сумма 4-ех элементов: ', sum-a[min]);
writeln ('Мин. сумма 4-ех элементов: ', sum-a[max]);
end.
Нет комментариев
Список предметов
