Viết chương trình nhập mảng B gồm N phần tử, các phần tử có dữ liệu số nguyên. Xuất giá trị mảng ra màn hình Xuất ra màn hình các phần tử là chẵn(N<=1

0 bình luận về “Viết chương trình nhập mảng B gồm N phần tử, các phần tử có dữ liệu số nguyên. Xuất giá trị mảng ra màn hình Xuất ra màn hình các phần tử là chẵn(N<=1”

1. uses crt;

   var b: array[1..100] of integer;

   i,n: integer;

   begin

   write (‘nhap so luong pt: ‘);  readln (n);

   for i:=1 to n do readln (b[i]);

   write (‘day vua nhap: ‘);   

   for i:=1 to n do write (b[i],’  ‘);

   write (‘cac so chan: ‘);

   for i:=1 to n do if b[i] mod 2=0 then write (b[i],’  ‘);

   readln;

   end.

   Bình luận

2. uses crt;
   var B:array[1..100] of longint;
         n,i:integer;
   begin
         clrscr;
         write(‘Nhap so luong phan tu (n<=100): ‘); readln(n);
         for i:=1 to n do
               begin
                     write(‘Nhap phan tu thu ‘,i,’: ‘); readln(B[i]);
               end;
         write(‘Day so vua nhap: ‘);
         for i:=1 to n do write(B[i],’ ‘); writeln;
         write(‘Cac phan tu chan: ‘);
         for i:=1 to n do if B[i] mod 2=0 then write(B[i],’ ‘);
         readln;
   end.

   Bình luận