Question

Bài 1:Viết chương trình nhập một mảng số nguyên gồm n phần tử,thực hiện các công việc sau:
a.Đếm số lượng các phần tử lẻ
b.Tính tổng các phần tử chia hết cho 5
c.Tìm phần tử chẵn lớn nhất và vị trí của nó trong mảng
d.Sắp xếp mảng theo thứ tự tăng dần và in ra màn hình
e.Tìm các phần tử là số nguyên tố
f.In ra màn hình các phần tử của mảng nếu phần tử là số nguyên tố thì thay bằng chữ "X"
Bài 2:Cho số tự nhiên m có m chữ số.Viết chương trình xóa n pascal sao cho số thu được là số lớn nhất

Answer 1

Bài 1:

uses crt;
var a,b:array[1..100]of integer;
i,n,dem,t,dem1,max,tam,j,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2<>0 then inc(dem);
writeln('So luong so le la: ',dem);
t:=0;
for i:=1 to n do
if a[i] mod 5=0 then t:=t+a[i];
writeln('Tong cac phan tu chia het cho 5 la: ',t);
dem1:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(dem1);
b[dem1]:=a[i];
end;
max:=b[1];
for i:=1 to dem1 do
if max<b[i] then max:=b[i];
writeln('Phan tu chan lon nhat la: ',max);
writeln('Vi tri cua no trong mang la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Mang duoc sap xep tang dan la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Cac so nguyen to trong day la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
readln;
end.