HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
c) {Tim phan tu lon nhat}
program tim_phan_tu_lon_nhat;
uses crt;
var
i,n,max,vt:longint;
a:array[1..10000] of longint;
begin
writeln('Nhap n = '); readln(n);
for i:=1 to n do
writeln('Nhap so thu ',i); readln(a[i]);
end;
max:=0;
if (a[i]>max) then
max:=a[i];
vt:=i;
writeln('Vay phan tu lon nhat la: ',max);
write('Phan tu lon nhat o vi tri: ',vt);
readln;
end.
b) {Tinh tong cac phan tu}
program tinh_tong;
i,n,S:longint;
S:=0;
S:=S+a[i];
write('Vay tong cac phan tu la: ',S); readln;
a) {Liet ke phan tu}
program liet_ke;
i,n:longint;
writeln(a[i]);
program vct;
a,b,c:longint;
writeln('Nhap a = '); readln(a);
writeln('Nhap b = '); readln(b);
writeln('Nhap c = '); readln(c);
if (((a+b)>c) and ((b+c)>a) and ((c+a)>b)) then write('DAY LA DO DAI BA CANH CUA MOT TAM GIAC')
else write('DAY KHONG PHAI LA DO DAI BA CANH CUA MOT TAM GIAC');
c) {In ra so chan}
program in_ra_so_chan;
if (a[i] mod 2 = 0) then writeln(a[i]);
b) {Dem so luong so lon hon 100}
program dem_so_luong_so_lon_hon_100;
i,n,dem:longint;
write('Nhap so thu ',i); readln(a[i]);
dem:=0;
if (a[i]>100) then inc(dem);
write('Vay so luong so lon hon 100 la: ',dem); readln;
a) {Dem so luong phan tu la so chan}
program dem_so_luong_so_chan;
i,dem,n: longint;
if (a[i] mod 2 = 0) then inc(dem);
write('So luong so chan la: ',dem); readln;
program doi_gia_tri;
x,y,tam:longint;
writeln('Nhap x = '); readln(x);
writeln('Nhap y = '); readln(y);
if (x<y) then
tam:=x;
x:=y;
y:=tam;
write(x,' ',y); readln;
Điều chế oxi trong PTN:
+Hóa chất: KMnO4, KClO3, KNO3
2KMnO4 => K2MnO4 + MnO2 + O2 (pứ phân hủy)
KClO3 => KCl + 3/2 O2 (pứ phân hủy)
Oxi có thể td với kim loại:
3Fe + 2O2 => Fe3O4 (pứ hóa hợp)
2Cu + O2 => 2CuO (pứ hóa hợp)
2Mg + O2 => 2MgO (pứ hóa hợp)
4Al + 3O2 => 2Al2O3 (pứ hóa hợp)
Oxi có thể td với phi kim:
S + O2 => SO2 (pứ hóa hợp)
4P + 5O2 => 2P2O5 (pứ hóa hợp)
C + O2 => CO2 (pứ hóa hợp)