Giải bài ôn tập Tin 8 (Bài 2, 4, 6, 8, 10)

Bài 2: Viết chương trình nhập vào dãy số nguyên và sô x. Tìm có bao nhiêu phần tử giống x, ở vị trí nào.
uses crt;
var a: array [1..100] of integer;
i,x,n,d: integer;
begin
clrscr;
write ('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write ('Nhap a[',i,']= ');
readln(a[i]);
end;
write ('Nhap so x: '); readln(x);
writeln ('Cac vi tri giong x: ');
for i:=1 to n do
if a[i]=x then
begin
write (i:4);
d:=d+1;
end;
writeln;
write ('So so bang ',x,' la: ',d);
readln;
end.

Bài 4: Nhập vào một dãy sô nguyên, in ra các phần tử là sô chính phương.
uses crt;
var a: array [1..100] of integer;
i,n,j: integer;
begin
clrscr;
write ('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write ('Nhap a[',i,']= ');
readln(a[i]);
end;
writeln ('So chinh phuong: ');
for i:=1 to n do
begin
while j*j<a[i] do
begin
j:=j+1;
if j*j=a[i] then write (a[i]:5);
end;
j:=0;
end;
readln;
end.

Bài 6: Nhập vào danh sách của một tổ. In ra danh sách tổ đó.
uses crt;
var a: array [1..100] of string;
i,n: integer;
begin
clrscr;
write ('Nhap so so hoc sinh: '); readln(n);
for i:=1 to n do
begin
write ('Nhap ten hoc sinh ',i,': ');
readln(a[i]);
end;
writeln ('Danh sach hoc sinh: ');
for i:=1 to n do writeln(a[i]);
readln;
end.

Bài 8: Nhập vào 1 dãy số nguyên, in ra màn hình những phần tử là số nguyên tố.
uses crt;
var a: array [1..100] of integer;
i,n,d,j: integer;
begin
clrscr;
write ('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write ('Nhap a[',i,']= ');
readln(a[i]);
end;
write ('So nguyen to: ');
for i:=1 to n do
begin
d:=0;
for j:=1 to a[i] do
if a[i] mod j=0 then d:=d+1;
if d=2 then write (a[i]:5);
end;
readln;
end.

Bài 10: Nhập vào 1 dãy số nguyên, sắp xếp các phần tử từ bé đến lớn rồi in ra màn hình.
uses crt;
var a: array [1..100] of integer;
i,j,n,d: integer;
begin
clrscr;
write ('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write ('Nhap a[',i,']= ');
readln(a[i]);
end;
for i:=1 to n-1 do
begin
for j:=i to n do
begin
if a[i]>a[j] then
begin
d:=a[i];
a[i]:=a[j];
a[j]:=d;
end;
end;
end;
writeln ('Day tu be den lon: ');
for i:=1 to n do write (a[i]:5);
readln;
end.