Pascal 11 kiểu mảng giúp wind với

[windy angel]

1. Viết chương trình sinh ngẫu nhiên mảng 1 chiều có giá trị từ 50 đến 201. Sắp xếp mảng theo chiều không giảm. In mảng sau khi sắp xếp. Đếm trong mảng có bao nhiêu số chẵn, lẽ, nguyên tố?
2. Viết chương trình nhập mảng 2 chiều . Sắp xếp mảng theo thứ tự không tăng. In mảng sau khi sắp xếp, tìm min, max?

 

[dienvi2010]

Chương trình:
Bài 1:

Type ArrInt = array[1..100] of integer;
Var a: ArrInt;
    n,i,j:byte;
    temp,chan,le,nguyento:integer;
Begin
     Randomize;
     {Phat sinh mang ngau nhien}
     write('Nhap so phan tu: '); Readln(n);
     for i:=1 to n do
         a[i]:=50+random(152);
     {Sap xep mang khong tang - Sap xep truc tiep}
     for i:=1 to n-1 do
         for j:=i+1 to n do
         if a[j]>a[i] then
             begin
                temp:=a[i];
                a[i]:=a[j];
                a[j]:=temp;
             end;
     {Xuat mang da sap xep}
     write('Mang da sap xep: ');
     for i:=1 to n do write(a[i],' ');
     writeln;
     {Dem chan, le, nguyen to}
     chan:=0; le:=0; nguyento:=0;
     for i:=1 to n do
     begin
          if a[i] mod 2=0 then
         inc(chan);     {chan:=chan+1;}
          if a[i] mod 2=1 then
         inc(le);
          for j:=2 to a[i] do
             if a[i] mod j=0 then break;
          if j=a[i] then inc(nguyento);
     end;
     writeln('So phan tu la so chan: ',chan);
     writeln('So phan tu la so le: ',le);
     writeln('So phan tu la so nguyen to: ',nguyento);
     readln;
End.

Bài 2:

Type ArrInt = array[1..100] of integer;
Var a: array[1..100] of ArrInt;
    b: ArrInt;
    n,m,i,j,k:byte;
    temp,max,min:integer;
Begin
     Randomize;
     {Phat sinh mang ngau nhien}
     write('Nhap so cot: '); Readln(n);
     write('Nhap so dong: '); Readln(m);
     for i:=1 to n do
         for j:=1 to m do
             a[i,j]:=random(50);
     {Chuyen mang 2 chieu ve mang 1 chieu}
     k:=1;
     for i:=1 to n do
         for j:=1 to m do
         begin
              b[k]:=a[i,j];
              inc(k);
         end;
     dec(k);
     {Sap xep mang khong tang - Sap xep truc tiep}
     for i:=1 to k-1 do
         for j:=i+1 to k do
         if b[j]>b[i] then
             begin
                temp:=b[i];
                b[i]:=b[j];
                b[j]:=temp;
             end;
     {Chuyen mang 1 chieu ve mang 2 chieu}
     k:=1;
     for i:=1 to n do
         for j:=1 to m do
         begin
              a[i,j]:=b[k];
              inc(k); {k:=k+1}
         end;
     dec(k); {k:=k-1}
     {Xuat mang da sap xep}
     writeln('Mang da sap xep: ');
     for i:=1 to n do
     begin
         for j:=1 to m do
              write(a[i,j]:5);
         writeln;
     end;
     {Tim max, min}
     min:=b[1]; max:=b[1];
     for i:=1 to k do
     begin
          if b[i]>max then max:=b[i];
          if b[i]<min then min:=b[i];
     end;
     writeln('Phan tu lon nhat la: ',max);
     writeln('Phan tu nho nhat la: ',min);
     readln;
End.