Cho dãy A gồm N số nguyên(N<100.Hỏi a.Hãy tính tổng các số chẵn có trong A b. Đưa ra giá trị của số chắn đầu tiên Đưa ra giá trị của số chẵn cuối cùn

0 bình luận về “Cho dãy A gồm N số nguyên(N<100.Hỏi a.Hãy tính tổng các số chẵn có trong A b. Đưa ra giá trị của số chắn đầu tiên Đưa ra giá trị của số chẵn cuối cùn”

1. uses crt;

   var a:array[1..100000] of longint;

         i,j,n,tong:longint;

   begin

   clrscr;

   write(‘Nhap do dai cua day: ‘);readln(n);

   for i:=1 to n do

     begin

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

     end;

   tong:=0;

   for i:=1 to n do

   if a[i] mod 2=0 then tong:=tong+a[i];

   for i:=1 to n do 

   for j:=n downto 1 do

   if a[i] mod 2=0 then break;

   if a[j] mod 2=0 then break;

   writeln(‘Tong cac so chan trong day: ‘,tong);

   writeln(‘So chan dau tien: ‘,a[i]);

   writeln(‘So chan cuoi cung: ‘,a[j]);

   readln;

   end.

   Bình luận