Tạo mảng a gồm n (n<=1000) số nguyên, các số có giá trị không vượt quá 255. Đưa ra màn hình các số có giá trị nhỏ hơn số nguyên k cho trước

0 bình luận về “Tạo mảng a gồm n (n<=1000) số nguyên, các số có giá trị không vượt quá 255. Đưa ra màn hình các số có giá trị nhỏ hơn số nguyên k cho trước”

1. uses crt;
   var A:array[1..1000] of byte;
       i,k,n:byte;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
      end;
      write(‘Nhap k: ‘); readln(k);
      write(‘cac so be hon ‘,k,’ trong mang la: ‘);
      for i:=1 to n do
      if A[i]<k then write(A[i],’ ‘);
      readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var a: array [1..100] of byte;
       i,k,n: byte;
   begin
           clrscr;
           write(‘Nhap so phan tu cua mang A: ‘); readln(n);
           for i:=1 to n do
                   begin
                           write(‘A[‘,i,’]: ‘); readln(a[i]);
                   end;
           write(‘Nhap k: ‘); readln(k);
           write(‘cac so be hon ‘,k,’ trong mang: ‘);
           for i:=1 to n do
                   if a[i]<k then
                           write(a[i],’ ‘);
           readln;
   end.

   ${Oken}$

   Bình luận