BÀI TẬP PASCAL VỀ BIẾN MẢNG

BÀI TẬP PASCAL VỀ  BIẾN MẢNG

Bài tập mảng: (su dung procedure)
- Nhập số phần tử mảng
- Nhập giá trị cho mảng
- In ra màn hình các giá trị của mảng
- Tính tổng các giá trị của mảng
- Tìm các số nguyên tố, số chính phương có trong mảng
- Tìm số lớn nhất, nhỏ nhất
- sắp xếp tăng dần, giảm dần
- Cho 1 số có giá trị K, tìm tất cả các vị trí trong mảng có giá trị K
- Thêm một phần tử vào cuối mảng
- Xóa một phần tử khỏi mảng
.........

uses crt;

var n,p,s,max,min,d,j,i,k,c:integer;
A:array[1..100] of integer;
{-------ham tinh so nguyen to------}

function snt( a:integer):boolean;
var j:integer; uoc:integer;
begin
uoc:=0;
for j:= 1 to a do
if a mod j =0 then uoc:=uoc+1;

if uoc=2 then snt:=true
else snt:=false;
end;

procedure nhapsophantu;
begin
write('nhap so phan tu cua mang:'); read(n);

{nhap day so cho mang}
for i:= 1 to n do
begin

write('nhap phan tu thu ',i, ':');
read(a[i]);

end;
end;
procedure xuat;
begin
{Xuat day so ra man hinh}

writeln('day so vua nhap la:');
for i:= 1 to n do
begin

write('nhap phan tu thu ',i, ':');
writeln(a[i], ' ');

end;
end;
{-----------------------------------}
procedure tinhtong;
begin
{Xuat day so ra man hinh}

writeln('day so vua nhap la:');
for i:= 1 to n do
begin

write('nhap phan tu thu ',i, ':');
writeln(a[i], ' ');

end;
end;
{--------------------------}

procedure sxtangdan;
begin
{sap xep theo thu tu tang dan}
Write(' danh sach da duoc sap xep tang dan');
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if a[i]>a[j] then
begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
end;
end;

end;
procedure sxgiamdan;
begin
{sap xep theo thu tu tang dan}
Write(' danh sach da duoc sap xep tang dan');
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if a[i]<a[j] then
begin
c:=a[i];
a[i]:=a[j];
a[j]:=c;
end;
end;

end;
{---------chuong trinh chinh-------------}
begin
nhapsophantu;
xuat;
sxtangdan;
xuat;
sxgiamdan;
xuat;
for i:= 1 to n do if snt(i) then write(i, ' ');

readkey;
end.