Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
var n,a,i,t: longint;
begin
Read(n);
t:= 0;
For i:= 1 to n do
begin
Read(a);
If a mod 2 = 0 then t:= t+a;
end;
Write(t);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
program tong;
uses crt;
var A : array [1 .. 15] of integer;
i, N, S : integer;
begin
clrscr;
write('Nhap so N = ');
readln(N);
for i := 1 to N do
begin
write('Nhap so thu ', i ,' = ');
readln(A[i]);
end;
S := 0;
for i := 1 to N do
if A[i] mod 2 = 0 then S := S + A[i];
write('Tong cac so chan = ', S);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
0
27
0
pascal ma ban
878
16199
458
đó là pascal mà
878
16199
458
cái phần trên đó, phần dưới là test