viết chương trình nhập vào N mảng một chiều al…an in ra màn hình các số dương của mảng vừa nhập

0 bình luận về “viết chương trình nhập vào N mảng một chiều al…an in ra màn hình các số dương của mảng vừa nhập”

1. var a: array[1..250] of integer;

          i, n: byte;

   Begin

       Write(‘N = ‘); readln(n);

       For i:=1 to n do

          Begin

               Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

          End; 

       for i:=1 to n if a[i]>0 then write(a[i], ‘ ‘);

       Readln

   End.

   Bình luận