Viết chương trình nhập vào dãy số gồm N số nguyên (N<=500) .tính và đưa ra màn hình tổng các số chẵn có trong dãy và tính các số lẻ có trong dãy

0 bình luận về “Viết chương trình nhập vào dãy số gồm N số nguyên (N<=500) .tính và đưa ra màn hình tổng các số chẵn có trong dãy và tính các số lẻ có trong dãy”

1. Program BTT;
   Uses crt;
   Var A: array[1..500] of longint;
       n,i,d,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           d:=0; s:=0;
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
                   If A[i] mod 2 = 0 then s:=s+A[i]
                   Else inc(d);
           End;

           Writeln(‘Tong so chan: ‘,s);
           Write(‘Co ‘,d,’ so le’);
           Readln
   End.

   Bình luận

2. var n,i,tong,sole: integer;
   begin
           write(‘Nhap n: ‘);

           read(n);

           clrscr;
           for i:=1 to n do if i mod 2 = 0 then inc(tong,i) else inc(sole);
           write(‘Tong so chan: ‘,tong);
           writeln(‘So so le:  ‘,sole);
           readln;
   end.

   Bình luận