khai báo mảng 100 phần tử số nguyên nhập vào n phần tử đầu Đếm và xuất ra phần tử lớn hơn 5

0 bình luận về “khai báo mảng 100 phần tử số nguyên nhập vào n phần tử đầu Đếm và xuất ra phần tử lớn hơn 5”

1. uses crt;
   var a:array[1..100] of integer;
       n,i,dem:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(a[i]);
         if a[i]>5 then inc(dem);
      end;
      write(‘Phan tu lon hon 5 la: ‘);
      for i:=1 to n do
      if a[i]>5 then write(a[i]:4);
      writeln;
      write(‘Co ‘,dem,’ phan tu lon hon 5′);
      readln
   end.

   Bình luận