Program Cau2;

Uses crt;

Var i,n,max,min: integer;

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

Begin

Clrscr;

Write(‘ Nhap do dai cua day so, n= ‘);

Readln(n);

Writeln(‘Nhap cac phan tu cua day so: ‘);

For i:= 1 to n do

Begin

Write(‘a[‘, i, ‘]= ‘);

Readln(a[i]);

End;

max:= a[1];

min:= a[1];

For i:= 2 to n do

Begin

If max < a[i] then max:= a[i];

If min > a[i] then min:= a[i];

End;

Writeln(‘So *** nhat la max= ‘, max);

Writeln(‘So nho nhat la min= ‘, min);

Readln;

End.

=MAX(A2:A6)
Giá trị lớn nhất trong phạm vi A2:A6.
27
=MAX(A2:A6, 30)
Giá trị lớn nhất trong phạm vi A2:A6 và giá trị 30.
30

Program HOC24;

var max,min,i,n: integer;

t,tc: longint;

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

begin

write('Nhap n='); readln(n);

max:=0; min:=32000; t:=0; tc:=0;

for i:=1 to n do

begin

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

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i];

t:=t+a[i];

if a[i] mod 2=0 then tc:=tc+a[i];

end;

write('Mang da nhap la : ');

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

writeln;

writeln('Gia tri *** nhat la ',max,' ; gia tri nho nhat la ',min);

write('Cac so le trong mang la : ');

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

writeln;

write('Cac so chan trong mang la : ');

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

writeln;

writeln('Tong cua mang A la : ',t);

write('Tong cac so chan co trong mang la : ',tc);

readln

end.

 S = 4

uses crt;

var x: real; n: integer;

const sai_so=0.003;

begin

     clrscr;

     x:=1; n:=1;

     while x>=sai_so do

     begin

          n:=n+1;

          x:=1/n; 

     end;

     writeln('So n nho nhat de 1/n < ',sai_so:5:4, 'la ',n);

     readln;

end.

Trong những năm trước đây thông tin liên lạc với thế giới bên ngoài là không dễ. Nhưng ngày nay chúng ta được thực hiện và có thể sử dụng các công cụ hữu ích nhất như các máy tính và internet. Một số người giao tiếp với bạn bè, trong khi một số người lướt internet, mua những sản phẩm online, và một số công ty đã chọn thiết kế những trang website như là một phần của kinh doanh của công ty.

Program HOC24;

var i,n: byte;

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

t: longint;

begin

write('Nhap N: '); readln(N);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so chan la: ',t);

readln

end.

Bông tuyết 10 cánh: REPEAT 10[ FD 100 REPEAT 6 [FD 15 BK 15 RT 60]BK 100 RT 336]
Hình chong chóng 10 cách:  Repeat 10 [FD 50 Repeat  6 [FD 10 BK 10 RT 60] BK 50 RT 72]

 màu ,giá trị n 

Program HOC24;

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

i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do 

begin

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

t:=t+a[i];

end;

write('Tong cac phan tu gia tri trong mang la: ',t);

readln

end.

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

i,d1,d2:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

End;

For i:=1 to 100 do

If a[i] mod 2 = 0 then d1:=d1+1

Else d2:=d2+1;

Writeln('So phan tu chan la ',d1);

Write('So phan tu le la ',d2);

Readln;

End.

Program Trung_Binh_Cong;

uses crt;

var a,b: real;

begin

clrscr;

write('nhap so a ='); readln(a);

write('nhap so b ='); realdn(b);

writeln('Trung binh cong cua 2 so ',a,' va ',b,' = ' , a*b/2);

readln;

end.

- Biểu đồ là cách minh họa dữ liệu trực quan, dễ hiểu, dễ so sánh, dự đoán xu thế tăng - giảm của số liệu.

..

- Cho hỗn hợp khí đi qua dd Brom thì C2H4 sẽ tác dụng với Brom thu khí thoát ra ta được CO2 và CH4

- Cho hỗn hợp khí thu được đi qua dd nước vôi trong thu khí thoát ra thu được CH4

+ C2H4+Br2−>C2H4Br2

+ CO2+Ca(OH)2−>CaCO3+H2O

-- Đúng thì 5 sao/thích
-- Sai thì chỉ mình sai chỗ nào nhé ^^^

a, I = {   4 ; 9 ; 16 ; 25 }

    I = { x = n . n | n ϵ N , n < 6 }

C. NaHCO3, NaHSO3, Na2CO3 và NaCl  

Cách mạng tư sản có hai nhiệm vụ chính. Đó chính là dân chủ và dân tộc. Điều này có nghĩa là cách mạng tư sản phải xóa được tình trạng phong kiến đang thống trị tại đất nước. Nhiệm vụ về dân tộc đó là tạo ra được một quốc gia dân tộc tư sản

Hiệp định Giơ-ne-vơ đánh dấu thắng lợi to lớn của cuộc kháng chiến chống Pháp, trong đó quan trọng nhất là nền độc lập, thống nhất, chủ quyền và toàn vẹn lãnh thổ của Việt Nam được các nước, kể cả Pháp phải cam kết tôn trọng

Nội chiến Hoa Kỳ là một trong những cuộc chiến tranh công nghiệp thực sự đầu tiên. Đường sắt, điện báo, tàu hơi nước và vũ khí sản xuất hàng loạt đã được sử dụng một cách rộng rãi. Các học thuyết chiến tranh toàn diện được Sherman phát triển ở Georgia, và chiến tranh chiến hào quanh Petersburg là điềm báo trước cho cuộc chiến tranh thế giới thứ nhất ở châu Âu. Cho đến nay, đây vẫn là cuộc chiến tranh đẫm máu nhất trong lịch sử Hoa Kỳ, dẫn đến cái chết của khoảng 750.000 binh sĩ[14] và một số lượng thương vong dân sự không xác định. Sử gia John Huddleston ước tính số người chết chiếm 10% toàn bộ số nam giới miền Bắc từ 20 đến 45 tuổi, và 30% đàn ông da trắng miền Nam trong độ tuổi từ 18-40.