KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
VCT nhập vào một dãy gồm N số nguyên. Tính tổng các số chẵn.
By Alexandra
VCT nhập vào một dãy gồm N số nguyên. Tính tổng các số chẵn.
uses crt; var i,s,n:integer; a:array[1..1000] of integer; begin clrscr; write(‘Nhap n: ‘); readln(n); for i:=1 to n do begin write(‘Nhap a[‘,i,’]: ‘); readln(a[i]); if a[i] mod 2=0 then s:=s+a[i]; end; writeln(‘Tong cac so chan: ‘,s); readln; end.
Program FNG; Uses crt; Var A: array[1..1000] of longint; n,i,s: longint; Begin Clrscr; Write(‘Nhap n: ‘); Readln(n); For i:=1 to n do Begin Write(‘A[‘,i,’] = ‘); Readln(A[i]); If A[i] mod 2 = 0 then s:=s+A[i]; End; Write(‘S = ‘,s); Readln End.
uses crt;
var i,s,n:integer;
a:array[1..1000] of integer;
begin
clrscr;
write(‘Nhap n: ‘);
readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]: ‘);
readln(a[i]);
if a[i] mod 2=0 then s:=s+a[i];
end;
writeln(‘Tong cac so chan: ‘,s);
readln;
end.
Vote mik nha :3
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,s: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
If A[i] mod 2 = 0 then s:=s+A[i];
End;
Write(‘S = ‘,s);
Readln
End.