Câu 1:
program Cau_1;
uses crt;
var i,T: byte;
Begin
clrscr;
for i:=15 to 25 do T:=T+i;
write('Tong = ',T);
readln
End.
Câu 2:
program Cau_2;
uses crt;
var n,i: integer;
Begin
clrscr;
write('Nhap n: '); readln(n);
write('Cac so le trong day tu 1 den ',n,': ');
for i:=1 to n do
if i mod 2<>0 then write(i,' ');
readln
End.
Câu 3:
program Cau_3;
uses crt;
var A:array [1..500] of integer;
n,i,T: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
if A[i] mod 2=0 then T:=T+A[i];
end;
write('Tong cac so chan trong mang = ',T);
readln
End.
Câu 4:
program Cau_4;
uses crt;
var A:array [1..500] of integer;
n,i,max,min: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
max:=1; min:=1;
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
if max<A[i] then max:=A[i];
if min>A[i] then min:=A[i];
end;
writeln('Phan tu lon nhat: ',max,' Phan tu nho nhat: ',min);
readln
End.
Câu 5:
program Cau_5;
uses crt;
var A:array [1..500] of integer;
n,i,S: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
S:=1;
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
S:=S*A[i];
end;
write('Tich cac phan tu trong mang = ',S);
readln
End.
Câu 6:
program Cau_6;
uses crt;
var A:array [1..500] of integer;
n,i,d: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
if A[i] mod 2=0 then d:=d+1;
end;
write('Co ',d,' so chia het cho 2 trong mang');
readln
End.
