tạo mảng a gồm n phần tử (n<= 100) số nguyên viết chương trình tính và in ra màng hình tổng và số lượng phần tử chẵn trong mảng

0 bình luận về “tạo mảng a gồm n phần tử (n<= 100) số nguyên viết chương trình tính và in ra màng hình tổng và số lượng phần tử chẵn trong mảng”

1. uses crt;
   var i,n,s,d: integer;
   a: array[1..1000] of integer;
   begin d:=0; clrscr;
   write(‘Nhap so phan tu trong mang: ‘); readln(n);
   for i:=1 to n do begin
     write(‘a[‘,i,’]=’); readln(a[i]); end;
   for i:=1 to n do
     if not odd(a[i]) then begin
     s:=s+a[i]; inc(d); end;
   writeln(‘Thong gia tri cac phan tu chan: ‘,s);
   writeln(‘So cac phan tu chan: ‘,d);
   readln;
   end.

   Mong câu tl hay nhất!

   Bình luận