nhập vào 100 số nguyên dương in ra màn hình các số vừa nhập và đếm số lượng các số chẳn

0 bình luận về “nhập vào 100 số nguyên dương in ra màn hình các số vừa nhập và đếm số lượng các số chẳn”

1. Program BTT;
   Uses crt;
   Var A: array[1..100] of qword;
       i,d: byte;
   Begin
           Clrscr;
           d:=0;
           For i:=1 to 100 do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
                   If A[i] mod 2 = 0 then inc(d);
           End;

           Write(‘Mang vua nhap: ‘);
           For i:=1 to 100 do Write(A[i],’ ‘);
           Writeln;
           Write(‘Co ‘,d,’ so chan’);
           Readln
   End.

   Bình luận

2. var a: array[1..100] of longint;
       i,d: longint;
   begin
   for i:=1 to 100 do
   begin
   write(‘A[‘,i,’] = ‘);
   read(A[i]);

   end;
   for i:=1 to 100 do if a[i] mod 2 = 0 then inc(d);

   writeln;
   write(‘Mang vua nhap la: ‘);

   for i:=1 to 100 do Write(a[i],’ ‘);
   writeln;

   write(‘So chan: ‘,d);
   readln;
   end.

   Bình luận