Help me lẹ !!!!! Viết chương trình thực hiện các công việc sau: a. Nhập dãy số nguyên gồm 100 số b. Hiển thị dãy số ra màn hình c. Hiển thị các số dươ

0 bình luận về “Help me lẹ !!!!! Viết chương trình thực hiện các công việc sau: a. Nhập dãy số nguyên gồm 100 số b. Hiển thị dãy số ra màn hình c. Hiển thị các số dươ”

1. uses crt;

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

   n,i,dem:integer;

   begin

   clrscr;

   repeat

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

   until (0<n) and (n<=100);

   dem:=0;

   for i:=1 to n do

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

   writeln(dem);

   readln;

   end.

   sai thì thôi nhé

   vote 5 sao nhó

   Bình luận

2. program bai_giai;

   uses crt;

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

         i:integer;

   begin

         clrscr;

         for i:=1 to 100 do

               begin

                     write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

               end;

         write(‘b. ‘);

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

         write(‘c. ‘);

         for i:=1 to 100 do

               if A[i]>0 then write(A[i],’ ‘);

         readln;

   end.

   Bình luận