viết ct nhập vào 1 dãy gồm 10 số nguyên. sau đó kt và đưa ra màn hình các số có giá trị lớn hơn 5 help me plsss cause mai mk thi rồi TT

0 bình luận về “viết ct nhập vào 1 dãy gồm 10 số nguyên. sau đó kt và đưa ra màn hình các số có giá trị lớn hơn 5 help me plsss cause mai mk thi rồi TT”

1. program lon_hon5;

   uses crt;

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

        i:byte;

   begin

          clrscr;

          for i:=1 to 10 do

                 begin

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

                 end;

          for i:=1 to 10 do

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

          readln;

   end.

   Bình luận

2. var a: array[1..10] of integer;

         i: byte;

   Begin

       For i:=1 to 10 do

         Begin

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

        End;

       For i:=1 to 10 do 

            If a[i]>5 then write(a[i], ‘ ‘);

       Readln

   End.

   Bình luận