Bài 1:
program sochan;
uses crt;
var A:array[1..100] of integer;
n,i:integer;
begin
clrscr;
write('Nhap so luong phan tu cua day: '); readln(n);
writeln('NHAP TUNG PHAN TU CUA DAY');
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(n);
end;
writeln('Cac phan tu chan trong day la: ');
for i:=1 to n do
if a[i] mod 2=0 then write(i,' ');
readln
end.
Bài 2
program tinhtong;
uses crt;
var A:array[1..100] of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap so luong phan tu cua day: '); readln(n);
writeln('NHAP TUNG PHAN TU CUA DAY');
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(n);
end;
t:=0;
for i:=1 to n do
t:=t+A[i];
write('Tong cac so trong day la: ',t);
readln
end.
bài 3
program timmax;
uses crt;
var A:array[1..100] of integer;
n,i,max:integer;
begin
clrscr;
write('Nhap so luong phan tu cua day: '); readln(n);
writeln('NHAP TUNG PHAN TU CUA DAY');
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(n);
end;
max:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i];
write('Phan tu lon nhat trong day la: ',max);
readln
end.
Bài 4
program tongdiem;
uses crt;
var A,B:array[1..100] of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('Nhap diem van cua ban thu ',i,': ');
readln(A[i]);
end;
for i:=1 to n do
begin
write('Nhap diem toan cua ban thu ',i,': ');
readln(B[i]);
end;
for i:=1 to n do
write('Tong diem cua ban thu ',i,' la: ',A[i],'+',B[i],'=',A[i]+B[i]);
readln
end.
