Ẩn danh
Xem chi tiết
kkkkk
Trần Thiên Anh
Xem chi tiết
Trần Thiên Anh
Xem chi tiết
$HỌC HỎI$
Xem chi tiết
Đinh Hoàng Việt
3 giờ trước (12:44)

interested → interesting

Bình luận (0)
~Tiệm nhà BƠ~
Xem chi tiết
Đào Mạnh Hưng
2 giờ trước (13:35)

1B 2C 3B 4D 5B 6C 7B 8B

BÀI NÀY CÔ CHO MK LÀM R BN KO LO NHÉ

Bình luận (0)
Xem chi tiết
Khánh Minh
Xem chi tiết
crazy
Xem chi tiết
Bastkoo
2 giờ trước (13:36)

PROGRAM HOC24;
VAR i,n,k: integer;
    a: array[1..10000] of longint;
    f: text;
CONST fi='DOCAO.INP' ;
      fo='DOCAO.OUT' ;
function sum(x: longint): integer;  {Ham tinh tong cac chu so}
var t,k: integer;
begin
     t:=0;
     while (x<>0) do
           begin
                t:=t+(x mod 10);
                x:=x div 10;
           end;
     sum:=t;
end;
procedure ip;  {Nhap du lieu}
begin
     assign(f,fi);
     reset(f);
     readln(f,n);
     for i:=1 to n do
         begin
              read(f,a[i]);
         end;
     close(f);
end;
procedure out;  {Xu ly va xuat}
begin
     assign(f,fo);
     rewrite(f);
     for i:=1 to n do
         write(f,sum(a[i]),' ');
     close(f);
end;
BEGIN
     ip;
     out;
END.

Bình luận (0)
crazy
Xem chi tiết
Nguyễn Thị Cúc Hoa
5 giờ trước (10:44)

Chương trình có thể như sau:

program SapXepLeChan;
const
  MAX = 100000;
type
  Mang = array[1..MAX] of Int64;
var
  a: Mang;
  n, i, j, temp: integer;
procedure SapXep(var a: Mang; n: integer);
var
  i, j, temp: integer;
begin
  // Sắp xếp số lẻ tăng dần
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if (a[i] mod 2 <> 0) and (a[j] mod 2 <> 0) then
        if a[i] > a[j] then
        begin
          temp := a[i];
          a[i] := a[j];
          a[j] := temp;
        end;
  // Sắp xếp số chẵn giảm dần
  for i := 1 to n - 1 do
    for j := i + 1 to n do
      if (a[i] mod 2 = 0) and (a[j] mod 2 = 0) then
        if a[i] < a[j] then
        begin
          temp := a[i];
          a[i] := a[j];
          a[j] := temp;
        end;
end;
begin
  // Nhập dữ liệu
  readln(n);
  for i := 1 to n do
    readln(a[i]);
  // Sắp xếp
  SapXep(a, n);
  // In ra màn hình
  for i := 1 to n do
    writeln(a[i]);
end.

Bình luận (0)