program sapxep;

var

     i, j, n, x: integer;

     a: array[1..100] of integer;

begin

     write('Nhap so phan tu trong day: ');

     readln(n);

     for i := 1 to n do

     begin

          write('a[', i, ']= ');

          readln(a[i]);

     end;

     for i := 1 to n - 1 do

          for j := i + 1 to n do

               if a[i] > a[j] then

               begin

                    x := a[i];

                    a[i] := a[j];

                    a[j] := x;

               end;

     write('Nhap so x: ');

     readln(x);

     for i := 1 to n do

     begin

          if x <= a[i] then

          begin

               for j := n downto i + 1 do

                    a[j] := a[j-1];

               a[i] := x;

               break;

          end;

     end;

     writeln('Day so vua sap xep va them phan tu x:');

     for i := 1 to n do

          write(a[i], ' ');

     writeln;

end.

program TinhTongDaySo;

var n, i, s: Integer;

begin
  // Yêu cầu người dùng nhập vào số nguyên n từ bàn phím
  write('Nhap vao n: ');
  readln(n);

  // In ra thông tin dãy số từ 1 đến n
  writeln('Day so tu 1 den ', n, ':');

  // Khởi tạo biến s để tính tổng dãy số
  s := 0;

  // Dùng vòng lặp for để in ra dãy số từ 1 đến n và tính tổng
  for i := 1 to n do
  begin
    write(i, ' '); // In ra dãy số từ 1 đến n
    s := s + i; // Tính tổng dãy số
  end;

  // In ra tổng dãy số
  writeln('Tong day so: ', s);

  // Dừng chương trình để người dùng có thể xem kết quả
  readln;
end.

chỗ program phải là

program Tinh_Tong_Day_So;

lên  google mờ tra :)

:V

Program HOC24;

var a: array[1..1000] of integer;

i,n,tg,j: integer;

begin

write('Nhap so phan tu cua day : '); readln(n);

for i:=1 to n do

begin

write('a[',i,'=');

readln(a[i]);

end;

for i:=1 to n do if a[i] mod 2=1 then

for j:=i to n do

if a[i]>a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

write('Day sau khi sap xep la: ');

for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');

readln

end.

Uses crt;

var i,n: integer;

begin clrscr;

i:=12345;

while(i<>0) do begin

n:=i mod 10;      write(n,' ');

i:=i div 10;

end;

readln;

end. 

Program HOC24;

var i: byte;

begin

i:=5;

while i>0 do

begin

write(i,' ');

i:=i-1;

end;

readln

end.

Các em tham khảo bài hướng dẫn bên dưới.

Bước 1: Nháy đúp vào biểu tượng  trên màn hình nền để khởi động phần mềm trình chiếu.

Bước 2: Nhập tên bài trình chiếu.

Bước 3: Thêm trang trình chiếu về cách khởi động máy tính:

Bước 4: Thêm trang trình chiếu về cách tắt máy tính:

Bước 5: Thêm ảnh vào trang trình chiếu:

Bước 6: Trình chiếu toàn màn hình

Nháy nút  để trình chiếu toàn màn hình

Bước 7: Lưu bài trình chiếu: Trong bảng chọn File chọn lệnh Save, cửa sổ Save hiện ra, chọn thư mục lưu tệp, gõ tên tệp sau đó nhấn Save.

1. Ý tưởng trình bày bài trình chiếu

Gợi ý:

2. Tạo bài trình chiếu:

Các em tham khảo hướng dẫn dưới.

Bước 1: Nháy đúp vào biểu tượng  trên màn hình nền để khởi động phần mềm trình chiếu.

Bước 2: Nhập tên bài trình chiếu.

Bước 3: Thêm trang trình chiếu và thêm ảnh về các loại máy tính:

Bước 4: Trình chiếu toàn màn hình

Nháy nút  để trình chiếu toàn màn hình

Bước 5: Lưu bài trình chiếu: Trong bảng chọn File chọn lệnh Save, cửa sổ Save hiện ra, chọn thư mục lưu tệp, gõ tên tệp sau đó nhấn Save.