Cho mảng B một chiều gồm N phần tử. Viết chrơng trình nhập giá trị vào cho mảng và in ra màn hình các phân tử có giá trị là lẻ của mảng.Nếu không có t

0 bình luận về “Cho mảng B một chiều gồm N phần tử. Viết chrơng trình nhập giá trị vào cho mảng và in ra màn hình các phân tử có giá trị là lẻ của mảng.Nếu không có t”

1. program oken;
   uses crt;
   var b: array [1..1000] of integer;
       i,n,dem:integer;
   begin
           clrscr;
           write(‘nhap so phan tu cua mang: ‘); readln(n);
           for i:=1 to n do
                   begin
                           write(‘B[‘,i,’]: ‘); readln(b[i]);
                           if b[i] mod 2=1 then
                                   dem:=dem+1;
                   end;
           if dem<>0 then
                   begin
                           write(‘day cac gi tri le trong mang: ‘);
                           for i:=1 to n do
                                   if b[i] mod 2 =1 then
                                           write(b[i],’ ‘);
                   end
           else
                   writeln(‘khong co gia tri le nao trong mang.’);
           readln;
   end.

   Bình luận

2. uses crt;
   var B:array[1..10000] of integer;
       n,i:integer;
       dem:boolean;
   begin
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(B[i]);
      end;
      for i:=1 to n do
      if B[i] mod 2 <> 0 then
      begin
         dem:=true;
         write(B[i]:2);
      end;
      if dem<>true then write(‘Khong co phan tu le’);
      readln
   end.

   Bình luận