Viết chương trình nhập dãy số gồm n số nguyên (n<=100)( Sử dụng chương trình con nhập dãy số ) .In ra màn hình các số dương trong dãy

0 bình luận về “Viết chương trình nhập dãy số gồm n số nguyên (n<=100)( Sử dụng chương trình con nhập dãy số ) .In ra màn hình các số dương trong dãy”

1. Var a: array[1..100] of integer;

       i, n: byte;

   Procedure nhap;

   Begin

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

       For i:=1 to n do 

           Begin

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

           End;

   Begin

       Nhap;

       Writeln(‘cac so nguyen duong la’);

       For i:=1 to n do if a[i]>0 then

           Write(a[i], ‘ ‘);

       Readln

   End.

   Bình luận