cho N và dãy số nguyên dương a1,a2…an.hãy nhập và in dãy nguyên dương ra màn hình

0 bình luận về “cho N và dãy số nguyên dương a1,a2…an.hãy nhập và in dãy nguyên dương ra màn hình”

1. uses crt;

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

   i,n,dem,dem1,dem2,t:integer;

   s:real;

   begin

   clrscr;

   write(‘Nhap n=’); readln(n);

   for i:=1 to n do 

   begin

   repeat

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

   until a[i]>0;

   end;

   for i:=1 to n do 

     write(a[i]:4);

   writeln;

   dem:=0;

   for i:=1 to n do

     if a[i]>10 then inc(dem);

   writeln(‘So phan tu lon hon 10 la: ‘,dem);

   dem1:=0;

   dem2:=0;

   readln;

   end.

   Bình luận

2. uses crt;

   var a:array[1..200] of word;

       i,n:byte;

   BEGIN

           clrscr;

           write(‘Nhap n:’); readln(n);

           for i:=1 to n do

           begin

                   write(‘Nhap a[‘,i,’]:’);

                   readln(a[i]);

           end;

           write(‘In ra:’);

           for i:=1 to n do write(a[i],’ ‘);

           readln

   END.

   Chúc bạn học tốt!

   Bình luận