[Tin học 8] ôn tập

[chibangbang]

[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 xuất mảng có n phần tử và tính tổng số chẵn phần tử trong mảng.
giúp mk vs nha!! Thks :-SS:-SS

 

[khai221050]

uses crt;
var n,S:integer;
      A:array[1..10000] of integer;
begin
clrscr;
S:=0;
writeln('Nhap so phan tu'); readln(n);
for i:=1 to n do 
begin
readln(A[i]);
if A[i] mod 2=0 then S:=S+A[i];
end;
writeln(S);
readln
end.