-Xây dựng thuật toán cho một dãy số nguyên. Tính tổng các số chẵn. – Sắp xếp theo thứ tự từ nhỏ đến lớn 3 số a, b, c

0 bình luận về “-Xây dựng thuật toán cho một dãy số nguyên. Tính tổng các số chẵn. – Sắp xếp theo thứ tự từ nhỏ đến lớn 3 số a, b, c”

1. Thuật toán:

   -Cho chạy i từ 1 đến n:

        +Nếu a[i] mod 2=0 (phần tử thứ i là số chẵn) thì tăng tổng lên tong+a[i];

   -Xuất tổng là xong! :)))

   Bài làm xắp xếp:

   Uses crt;
   Var a,b,c,t:longint;
   Begin
   Clrscr;
      write(‘Nhap a,b,c: ‘);readln(a,b,c);
      if a>b then begin t:=a; a:=b; b:=t; end;
      if a>c then begin t:=a; a:=c; c:=t; end;
      if b>c then begin t:=b; b:=c; c:=t; end;
      writeln(a,’ ‘,b,’ ‘,c);
   Readln;
   End.

   Bình luận