Выбирая 4 числа из 5, посчитать максимально возможную и минимально возможную сумы - Turbo Pascal

Формулировка задачи:

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


textual

Код к задаче: «Выбирая 4 числа из 5, посчитать максимально возможную и минимально возможную сумы - Turbo Pascal»

var i,a,s,mn,mx:integer;
begin
writeln('Введите 5 целых чисел');
readln(a);
s:=a;
mn:=a;
mx:=a;
for i:=2 to 5 do
 begin
  readln(a);
  s:=s+a;
  if a<mn then mn:=a
  else if a>mx then mx:=a;
 end;
writeln('Минимальная сумма=',s-mx,' максимальная сумма',s-mn);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.250 из 5

Источник