1, dùng biến mảng nhập vào một dãy gồm n phần tử, in ra các số chẵn trong dãy đó 2, nhập một dãy n phần tử, tính tổng các số có trong dãy đó 3, nhập một dãy gồm n phần tử, in ra màn hình phần tử lớn nhất 4, nhập điểm văn của 10 bạn trong lớp, in ra điểm toán , tổng điểm toán+ văn
1/
uses crt;
var a: array[1..100] of integer;
i,n: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
end;
write (‘cac so chan co trong day la: ‘);
for i:=1 to n do
if a[i] mod 2=0 then write (i,’ ‘);
readln;
end.
2/
uses crt;
var a: array[1..100] of integer;
i,n,s: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[i]: ‘); readln (a[i]);
s:=s+a[i];
end;
writeln (‘tong cac phan tu trong day la: ‘,s);
readln;
end.
3/
uses crt;
var a: array[1..100] of integer;
i,n,max: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[i]: ‘); readln (a[i]);
end;
for i:=1 to n do
if a[i]>=max then max:=a[i];
writeln (‘so lon nhat la: ‘,max);
readln;
end.
4/
uses crt;
var a: array[1..100) of integer;
dv,dt,td: real;
i: integer;
begin
clrscr;
for i:=1 to 10 do
begin
write (‘nhap diem van cua ban ‘,i,’: ‘); readln (dv);
write (‘nhap diem toan cua ban ‘,i,’: ‘); readln (dt);
td:=dv+dt;
a[i]:=td;
end;
for i:=1 to n do
writeln (‘tong diem cua ban ‘,i,’ la: ‘,a[i]);
readln;
end.
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.