Giải thuật toán cho N nguyên và day so a1…an. tìm vị trí của tất cả các số nguyên dương trong dãy

0 bình luận về “Giải thuật toán cho N nguyên và day so a1…an. tìm vị trí của tất cả các số nguyên dương trong dãy”

1. Uses crt;
   Var n: longint;
   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 A[i]>=0 then
                   Begin
                           Write(‘A[‘,i,’] ‘);
                           Writeln;
                   End;
           Readln
   End.

   Bình luận