DÙNG VÒNG LẶP FOR TÌM SỐ LỚN NHẤT, NHỎ NHẤT; TÍNH TỔNG CÁC SỐ CHẲN VÀ TỔNG CÁC SỐ LẺ
BÀI 1
program TIM_SO_LON_NHAT_SO_NHO_NHAT;
uses crt;
VAR X,I,MAX, MIN : INTEGER;
Begin
CLRSCR;
WRITELN(' CHUONG TRINH TIM SO LON NHAT TRONG 6 SO DUOC NHAP');
WRITELN(' NHAP SO THU 1 : '); READLN(X);
MAX:= X; MIN :=X;
for i := 2 to 6 DO
BEGIN
write(' nhap so THU :', I,' :'); readln(x);
IF MAX <= X THEN MAX:=X;
IF MIN >= X THEN MIN := X;
END;
WRITELN(' SO LON NHAT LA :', MAX);
WRITELN(' SO NHO NHAT LA :', MIN);
readln;
end.
BÀI 2
program TIM_TONGSOCHAN_TONGSOLE;
uses crt;
VAR X,I,TONGCHAN, TONGLE : INTEGER;
Begin
CLRSCR;
WRITELN(' CHUONG TRINH TING TONG CAC SO CHAN VA LE');
TONGCHAN:= 0; TONGLE :=0;
for i := 1 to 6 DO
BEGIN
write(' nhap so THU :', I,' :'); readln(x);
IF TONGCHAN MOD 2 = 0 THEN TONGCHAN := TONGCHAN +X;
IF TONGLE MOD 2 <> 0 THEN TONGLE := TONGLE +X;
END;
WRITELN(' TONG CAC SO CHAN LA :', TONGCHAN);
WRITELN(' TONG CAC SO LE LA :', TONGLE);
readln;
end.