Tin học Dãy số

[thuong21052002@gmail.com]

[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.

giúp mình với
viết thuật toán cho dãy các số từ a1;a2;..;an tìm tổng các số chia hết cho 2

 

[ka1412]

Có khi rep bây giờ muộn rồi nhưng thôi mình cứ đăng vậy

uses crt;
var n,i,p,s:integer;
begin
      write('So so can nhap:');readln(n);
      for i:=1 to n do
      begin
          write('So thu ',i,':');readln(p);
          if p mod 2 =0 then s:=s+p;
      end;
      write('Tong cac so chia het cho 2 la:',s);
readln
end.