=-Cần Gấp làm bài tập== Tìm phần tử nguyên dương và là số nguyên tố của mảng. tìm vị trí Pascal

0 bình luận về “=-Cần Gấp làm bài tập== Tìm phần tử nguyên dương và là số nguyên tố của mảng. tìm vị trí Pascal”

1. Program BTT;
   Uses crt;
   Var A:array[1..10000] of longint;
       i,n: longint;

   Function ngto(a:longint):boolean;
   Var i: longint;
   Begin
           If a<2 then exit(false);
           For i:=2 to a div 2 do
                   If a mod i = 0 then exit(false);
                                       exit(true);
   End;

   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           For i:=1 to n do
                   If ngto(A[i]) then
                   Begin
                           Write(‘A[‘,i,’] = ‘,A[i]);
                           Writeln;
                   End;
           Readln
   End.

   Bình luận