program tinh_toan_day_so;

const

     MAX = 1000;

var

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

     n, i, tong, tong_duong, tong_am, tong_chan, tong_le, max, min, temp: integer;

begin

     // Nhập dãy số và giá trị từng phần tử của dãy

     write('Nhập số phần tử của dãy: ');

     readln(n);

     for i := 1 to n do

     begin

          write('Nhập phần tử thứ ', i, ': ');

          readln(a[i]);

     end;

     // Xuất giá trị của dãy vừa nhập

     writeln('Dãy số vừa nhập là: ');

     for i := 1 to n do

     begin

          write(a[i], ' ');

     end;

     writeln();

     // Tính tổng các phần tử của dãy

     tong := 0;

     for i := 1 to n do

     begin

          tong := tong + a[i];

     end;

     writeln('Tổng các phần tử của dãy là: ', tong);

     // Tìm giá trị Max, Min của dãy

     max := a[1];

     min := a[1];

     for i := 2 to n do

     begin

          if a[i] > max then

          begin

               max := a[i];

          end;

          if a[i] < min then

          begin

               min := a[i];

          end;

     end;

     writeln('Phần tử lớn nhất của dãy là: ', max);

     writeln('Phần tử nhỏ nhất của dãy là: ', min);

     // Tính tổng các phần tử dương, âm, chẵn, lẻ của dãy

     tong_duong := 0;

     tong_am := 0;

     tong_chan := 0;

     tong_le := 0;

     for i := 1 to n do

     begin

          if a[i] > 0 then

          begin

               tong_duong := tong_duong + a[i];

          end

          else

          begin

               tong_am := tong_am + a[i];

          end;

          if a[i] mod 2 = 0 then

          begin

               tong_chan := tong_chan + a[i];

          end

          else

          begin

               tong_le := tong_le + a[i];

          end;

     end;

     writeln('Tổng các phần tử dương của dãy là: ', tong_duong);

     writeln('Tổng các phần tử âm của dãy là: ', tong_am);

     writeln('Tổng các phần tử chẵn của dãy là: ', tong_chan);

     writeln('Tổng các phần tử lẻ của dãy là: ', tong_le);

     // Sắp xếp các phần tử của dãy theo thứ tự giảm dần

     for i := 1 to n-1 do

     begin

          for j := i+1 to n do

          begin

               if a[i] < a[j] then

               begin

                    temp := a[i];

                    a[i] := a[j];

                    a[j] := temp;

               end;

          end;

     end;

     writeln('Dãy số sau khi được sắp xếp giảm dần là: ');

     for i := 1 to n do

     begin

          write(a[i], ' ');

     end;

     writeln();

     // Sắp xếp các phần tử của dãy theo thứ tự tăng dần

     for i := 1 to n-1 do

     begin

     for j := i+1 to n do

     begin

          if a[i] > a[j] then

               begin

                    temp := a[i];

                    a[i] := a[j];

                    a[j] := temp;

               end;

          end;

     end;

     writeln('Dãy số sau khi được sắp xếp tăng dần là: ');

     for i := 1 to n do

     begin

          write(a[i], ' ');

     end;

     writeln();

     readln;

end.

rất dài nha bạn:


 

program XuLyDaySo;

var
  N, i, soNguyen: integer;
  daySo: array of integer;

procedure NhapDaySo(var daySo: array of integer; N: integer);
var
  i: integer;
begin
  SetLength(daySo, N);
  for i := 0 to N - 1 do
  begin
    write('Nhap phan tu thu ', i + 1, ': ');
    readln(daySo[i]);
  end;
end;

procedure XuatDaySo(daySo: array of integer);
var
  i: integer;
begin
  writeln('Danh sach cac phan tu trong day:');
  for i := 0 to Length(daySo) - 1 do
    write(daySo[i], ' ');
  writeln;
end;

function TinhTongDaySo(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    tong := tong + daySo[i];
  TinhTongDaySo := tong;
end;

procedure TimMaxMin(daySo: array of integer; var Max, Min: integer);
var
  i: integer;
begin
  Max := daySo[0];
  Min := daySo[0];
  for i := 1 to Length(daySo) - 1 do
  begin
    if daySo[i] > Max then
      Max := daySo[i];
    if daySo[i] < Min then
      Min := daySo[i];
  end;
end;

function TinhTongDuong(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    if daySo[i] > 0 then
      tong := tong + daySo[i];
  TinhTongDuong := tong;
end;

function TinhTongAm(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    if daySo[i] < 0 then
      tong := tong + daySo[i];
  TinhTongAm := tong;
end;

function TinhTongChan(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    if daySo[i] mod 2 = 0 then
      tong := tong + daySo[i];
  TinhTongChan := tong;
end;

function TinhTongLe(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    if daySo[i] mod 2 <> 0 then
      tong := tong + daySo[i];
  TinhTongLe := tong;
end;

procedure SapXepGiamDan(var daySo: array of integer);
var
  i, j, temp: integer;
begin
  for i := 0 to Length(daySo) - 2 do
    for j := i + 1 to Length(daySo) - 1 do
      if daySo[i] < daySo[j] then
      begin
        temp := daySo[i];
        daySo[i] := daySo[j];
        daySo[j] := temp;
      end;
end;

procedure SapXepTangDan(var daySo: array of integer);
var
  i, j, temp: integer;
begin
  for i := 0 to Length(daySo) - 2 do
    for j := i + 1 to Length(daySo) - 1 do
      if daySo[i] > daySo[j] then
      begin
        temp := daySo[i];
        daySo[i] := daySo[j];
        daySo[j] := temp;
      end;
end;

begin
  // Nhập số lượng phần tử N
  write('Nhap so luong phan tu N: ');
  readln(N);

  // Nhập dãy số
  NhapDaySo(daySo, N);

  // Xuất dãy số
  XuatDaySo(daySo);

  // Tính tổng dãy số
  writeln('Tong cac phan tu cua day: ', TinhTongDaySo(daySo));

  // Tìm Max, Min
  var Max, Min: integer;
  TimMaxMin(daySo, Max, Min);
  writeln('Gia tri lon nhat trong day: ', Max);
  writeln('Gia tri nho nhat trong day: ', Min);

  // Tính tổng các phần tử dương
  writeln('Tong cac phan tu duong cua day: ', TinhTongDuong(daySo));

  // Tính tổng các phần tử âm
  writeln('Tong cac phan tu am cua day: ', TinhTongAm(daySo));

  // Tính tổng các phần tử chẵn
  writeln('Tong cac phan tu chan cua day: ', TinhTongChan(daySo));

  // Tính tổng các phần tử lẻ
  writeln('Tong cac phan tu le cua day: ', TinhTongLe(daySo));

  // Sắp xếp giảm dần
  SapXepGiamDan(daySo);
  writeln('Day sau khi sap xep giam dan:');
  XuatDaySo(daySo);

  // Sắp xếp tăng dần
  SapXepTangDan(daySo);
  writeln('Day sau khi sap xep tang dan:');
  XuatDaySo(daySo);

  readln;
end.

a) Biển luôn thay đổi màu tuỳ theo sắc mây trời. Trời xanh thẳm, biển cũng thẳm xanh, như dâng cao lên, chắc nịch. Trời rải mây trắng nhạt, biển mơ màng dịu hơi sương. Trời âm u mây mưa, biển xám xịt, nặng nề. Trời ầm ầm dông gió, biển đục ngầu, giận dữ ... Như một con người biết buồn vui, biển lúc tẻ nhạt, lạnh lùng, lúc sôi nổi, hả hê, lúc đăm chiêu, gắt gỏng.

- Đoạn văn tả đặc điểm gì của biển?

- Đoạn văn tả màu sắc của biển thay đổi tùy theo sắc mây trời.

- Để tả đặc điểm đó, tác giả đã quan sát những gì và vào những thời điểm nào?

- Tác giả đã quan sát bầu trời và mặt biển vào những lúc khác nhau : khi bầu trời xanh thẳm, khi bầu trời rải mây trắng nhạt, khi bầu trời âm u, khi dông gió lạnh lùng, lúc sôi nổi, hả hê, lúc đăm chiêu, gắt gỏng.

- Gạch dưới những hình ảnh trong đoạn văn thể hiện những liên tưởng thú vị của tác giả khi quan sát biển.

b) Con kênh này có tên là kênh Mặt Trời. Nơi đây, suốt ngày, ánh nắng rừng rực đổ lửa xuống mặt đất. Bốn phía chân trời trống huếch trống hoác. Từ lúc mặt trời mọc đến lúc mặt trời lặn không kiếm đâu ra một bóng cây để tránh nắng. Buổi sáng, con kênh còn phơn phớt màu đào, giữa trưa bỗng hoá ra một dòng thuỷ ngân cuồn cuộn loá mắt, rồi dần dần biến thành một con suối lửa lúc trời chiều. Có lẽ bởi vậy mà nó được gọi là kênh Mặt Trời.

- Con kênh được quan sát vào những thời điểm nào trong ngày?

- Con kênh được quan sát suốt ngày, từ lúc mặt trời mọc đến lúc mặt trời lặn, buổi sáng, giữa trưa và lúc trời chiều.

- Tác giả nhận ra đặc điểm của con kênh chủ yếu bằng giác quan nào?

- Tác giả nhận ra đặc điểm của con kênh chủ yếu bằng thị giác, để thấy được màu sắc thay đổi của con kênh. Ngoài ra còn bằng xúc giác để thấy nắng nóng như đổ lửa.

- Gạch dưới những hình ảnh thể hiện sự liên tưởng của tác giả khi quan sát và miêu tả con kênh. Nêu tác dụng của những liên tưởng đó.

- Giúp người đọc hình dung được cái nắng dữ dội, làm cho cảnh vật hiện ra sinh động hơn, gây ấn tượng hơn với người đọc.

Viết đúng thứ  tự: Trung Quốc, Nhật Bản, Việt Nam, Lào, Cam-pu-chia

b)Điền đúng: 1,88

cho mình 1 like nha

Của bạn đây nhé

1. lục bát
2. biểu cảm
3, so sánh tác dụng thể hiển đc tình cảm yêu thương mẹ vô bờ bến của tác giả, đòng thời làm cho câu văn thêm sinh động và giàu sức gợi hình gợi cảm
4. nội dung: cho thấy sự quan trọng của người mẹ, người mẹ đã hi sinh, vất vả nuôi nấng con cái, luôn là bến đỗ binh yên để chào đón con trở về, qua đó thể yên tình cảm yêu thương kính trọng mẹ của tác giả 

AI NHANH MÌNH K CHO

thi đúng ko??

thi thì tự làm nha bạn

câu 1

thể lạoi của đoạn thơ trên là thơ 4 chữ

câu 2

PTBD chính là Biểu cảm

câu 3

bptt là so sánh "tóc như bạc thêm"

tác dụng

làm cho câu thơ thêm sinh động  gợi hình gợi cảm

thể hiện công lao to lớn của người thầy người cô,đã bao thế hệ đã qua đi còn thầy cô vẫn ngồi bên những trang giáo án, bên bục giảng với những bài giảng , lặng lẽ đi về sớm khuya, tóc bạc vì bụi phấn viết những nét chữ cho ta học

 Nhấn mạnh sự lao động của người thầy giáo và bày tỏ lòng biết ơn thầy cô của tác giả

Câu 4: Nội dung chính: Khắc họa hình ảnh người thầy và tấm lòng trân trọng, ngợi ca người thầy

đây nha

- Xác định phần mở bài của bài văn và cho biết tác giả giới thiệu Hạng A Cháng bằng cách nào ?

Từ đầu đến Đẹp quá

- Tác giả giới thiệu Hạng A Cháng bằng cách đưa ra lời khen của các cụ già trong làng về thân hình của A Cháng

- Ngoại hình của A Cháng có những điểm gì nổi bật ?

- Ngực nở vòng cung, da đỏ như lim, bắp tay, bắp chân rắn chắc như gụ, vóc cao, vai rộng, người đứng như cái cột đá trời trồng, khi đeo cày, trông hùng dũng như một chàng hiệp sĩ cổ đeo cung ra trận.

- Đoạn văn tả hoạt động của A Cháng cho thấy A Cháng là người thế nào ?

- Đoạn văn cho thấy A Cháng là người lao động khỏe, cẩn cù, say mê lao động....

- Tìm phần kết bài và nêu ý chính của nó.

- Câu văn cuối là phần kết bài.

- Nội dung: Ca ngợi sức lực tràn trề của A Cháng và khẳng định đó là niềm tự hào của dòng họ Hạng.