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

@$\text{JoonHae}

program MinMaxSum;
var
  a, b, c, d, e, sum1, sum2, sum3, sum4, sum5, minSum, maxSum: integer;
begin
  write('Nhap a: '); readln(a);
  write('Nhap b: '); readln(b);
  write('Nhap c: '); readln(c);
  write('Nhap d: '); readln(d);
  write('Nhap e: '); readln(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;
  minSum := sum1;
  maxSum := sum1;
  if sum2 < minSum then minSum := sum2;
  if sum3 < minSum then minSum := sum3;
  if sum4 < minSum then minSum := sum4;
  if sum5 < minSum then minSum := sum5;
  if sum2 > maxSum then maxSum := sum2;
  if sum3 > maxSum then maxSum := sum3;
  if sum4 > maxSum then maxSum := sum4;
  if sum5 > maxSum then maxSum := sum5;
  writeln('Tong nho nhat: ', minSum);
  writeln('Tong lon nhat: ', maxSum);
end.

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

uses crt;
  var a : array[1..6] of longint;
    i, j, tam : longint;
begin
    for i := 1 to 5 do read(a[i]);
    for i := 1 to 5 do 
        for j := i + 1 to 5 do
            if a[i] > a[j] then 
                 begin
                tam := a[i];
                a[i] := a[j];
                a[j] := tam;
                 end ;
    write(a[1]+a[2]+a[3]+a[4],' ',a[2]+a[3]+a[4]+a[5]);
end .