Cho một dãy số thực, viết chương trình kiểm tra xem dãy trên có bao nhiêu số có giá trị lớn hơn ba

0 bình luận về “Cho một dãy số thực, viết chương trình kiểm tra xem dãy trên có bao nhiêu số có giá trị lớn hơn ba”

1. uses CRT;
   var   a: array[1..250] of real;
            i,n,d: integer;
   begin
         clrscr;
        
         write(‘Nhap n= ‘);readln(n);
        
         for i:=1 to n do
        
                  begin
            
                          write(‘a[‘,i,‘]: ‘);readln(a[i]);
                
                  end;
            
         for i:=1 to n do
        
             If a[i] > 3 then d:=d+1;
            
         write(‘Co ‘,d,‘ so co gia tri lon hon 3’);
        
   readln;
   end.

   Bình luận