biến mảng

[endless_life]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập từ bàn phím 1 dãy số nguyên gồm n phần tử (n<=100). Tìm trong dãy số vừa nhập có bào nhiêu số chẵn và tính tổng của các số đó

 

[stardustdragon]

Trả lời câu hỏi

Của bạn đây

uses crt;
var a:array[1..100] of longint;
    n,i,dem,S:longint;
begin
 write('Nhap so phan tu cua day N = ');
 readln(n);
 for i:=1 to n do
  begin
   write('a [',i,'] = ');
   readln(a[i]);
  end;
 S:=0;
 for i:=1 to n do
  begin
   if a[i] mod 2 = 0 then
    begin
     dem:=dem+1;
     S:=S+a[i];
    end;
   end;
 writeln('So cac so chan co trong day la : ',dem);
 write('Tong cac so chan trong day la : ',S);
 readln
end.