program chuongtrinhkhuyenmai;
uses crt;
var i,n: integer;
begin
clrscr;
write('Hay nhap so lan mua hang cua khach hang, N= ');
readln(n);
for i:=1 to n do writeln('Ban da duoc tang ',n,' xu');
if n:=100 then writeln('Ban da duoc tang mot phan qua');
end.
-
program thongke;
uses crt;
var i,n: integer;
Ban: array[1..100] of real;
begin
clrscr;
write('Hay nhap so hoc sinh trong lop em, N= ');
readln(n);
writeln('Nhap so diem cua moi hoc sinh trong lop em:');
for i:=1 to n do
begin
write('Ban[',i,']=');
readln(Ban[i]);
end;
for i:=1 to n do
writeln('Ban[',i,']= ',Ban[i]);
end.
!!Cái bài thứ 2 là mik tự chế nha!!