viết chương trình nhập vào 1 dãy số ko âm tính tổng dãy số và xem tổng là số chẵn hay lẻ nếu chẵn thì in ra màn hình là tổng là số chẵn và ngược lại n

0 bình luận về “viết chương trình nhập vào 1 dãy số ko âm tính tổng dãy số và xem tổng là số chẵn hay lẻ nếu chẵn thì in ra màn hình là tổng là số chẵn và ngược lại n”

1. program kiemtratong;

   uses crt;

   var A:array[1..1000] of integer;

         n,i:integer;

         s:longint;

   begin

   clrscr;

   write(‘Nhap so luong phan tu cua day: ‘);   readln(n);

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);

   s:=0;

   for i:=1 to n do 

    begin

     write(‘Phan tu thu ‘,i,’: ‘);

     readln(A[i]);

     s:=s+A[i];

    end;

   writeln(‘Tong cua day so la: ‘,s);

   if s mod 2=0 then write(‘Tong la so chan’)

      else write(‘Tong la so le’);

   readln

   end.

   Bình luận

2. uses crt;

   var a:array[1..1000] of word;

         i,n,s: word;

   begin

   clrscr;

   write (‘nhap so phan tu cua mang: ‘);  readln (n);

   for i:=1 to n do

   begin

   write (‘nhap a[‘,i,’]: ‘);  readln (a[i]);

   s:=s+a[i];

   end;

   writeln (‘tong la: ‘,s);

   if s mod 2=0 then writeln (‘tong la so chan’);

   if s mod 2<>0 then writeln (‘tong la so le’);

   readln;

   end.

   Bình luận