viết chương trình nhập mảng 1 chiều gồm n phần tử và in ra màn hình các số lẻ trong mảng

0 bình luận về “viết chương trình nhập mảng 1 chiều gồm n phần tử và in ra màn hình các số lẻ trong mảng”

1. uses crt;
   var A:array[1..1000] of integer;
       i,n:integer;
   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(‘Cac so le trong mang la: ‘);
      for i:=1 to n do if A[i] mod 2 = 1 then write(A[i]:4);
      readln
   end.

   Bình luận

2. program oken;
   uses crt;
   var a: array [1..100] of integer;
       n,i:integer;
   begin
           clrscr;
           write(‘nhap so phan tu cua mang: ‘); readln(n);
           for i:=1 to n do
                   begin
                           write(‘a[‘,i,’]: ‘);
                           readln(a[i]);
                   end;
           write(‘cac so le cua mang: ‘);
           for i:=1 to n do
                   if (a[i] mod 2=1) then
                           write(a[i],’ ‘);
           readln;
   end.

   Bình luận