Cô giáo cho cả lớp 5 số nguyên dương a, b, c, d, e. Cô yêu cầu các bạn trong lớp hãy tính tổng của 4 trong 5 số nguyên này, sau đó đưa ra tổng nhỏ nhất và tổng lớn nhất? Em hãy lập trình giải bài toán của cô giáo? INPUT: - Một dòng duy nhất chứa 5 số nguyên dương a, b, c, d, e (a, b, c, d, e 1000) OUTPUT: - Giá trị nhỏ nhất và lớn nhất của tổng 4 trong 5 số. Ví dụ: INPUT OUTPUT 4 5 3 1 2 10 14 * Giải thích ví dụ: - Các tổng tính được từ 4 trong 5 số là: + Tổng thứ nhất: 4 + 5 + 3 + 1 = 13 + Tổng thứ hai: 4 + 5 + 3 + 2 = 14 + Tổng thứ ba: 4 + 5 + 1 + 2 = 12 + Tổng thứ tư: 4 + 3 + 1 + 2 = 10 + Tổng thứ năm: 5 + 3 + 1 + 2 = 11 ra pham mem pascal

program teacher;
var a,b,c,d,e:integer;
sum1,sum2,sum3,sum4,sum5,min,max:integer;
begin
readln(a,b,c,d,e);
sum1:= a + b + c + d;
sum2:= a + b + c + e;
sum3:= a + b + d + e;
sum4:= a + c + d + e;
sum5:= b + c + d + e;
min:= sum1;
if sum2 < min then
min:= sum2;
if sum3 < min then
min:= sum3;
if sum4 < min then
min:= sum4;
if sum5 < min then
min:= sum5;
max:= sum1;
if sum2 > max then
max:= sum2;
if sum3 > max then
max:= sum3;
if sum4 > max then
max:= sum4;
if sum5 > max then
max:= sum5;
writeln(min,' ',max);
end.

@minhanh31007
#Nocopy

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

var a : array[1..100] of longint;
    i, sum : longint;
  procedure bubble_sort;
        var i, j : longint ;
     begin
    for i := 1 to 5 do 
        for j := i + 1 to 5 do 
            if a[i] < a[j] then 
                 begin
                a[i] := a[i] + a[j];
                a[j] := a[i] - a[j];
                a[i] := a[i] - a[j];
                 end ;
     end ;
begin
    for i := 1 to 5 do read(a[i]);
    bubble_sort;
    write(a[2]+a[3]+a[4]+a[5],' ',a[1]+a[2]+a[3]+a[4]);
    
end .