Viết chương trình nhập dãy số in các số chẵn ra màn hình, tính tổng của các số chẵn có trong danh sách
Viết chương trình nhập dãy số in các số chẵn ra màn hình, tính tổng của các số chẵn có trong danh sách
By Melanie
By Melanie
Viết chương trình nhập dãy số in các số chẵn ra màn hình, tính tổng của các số chẵn có trong danh sách
program ct;
uses crt;
var A:array[1..1000] of integer;
n,i:integer;
S:longint;
begin clrscr;
writeln(‘Nhap so n: ‘); readln(n);
for i:=1 to n do
begin
writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
if A[i] mod 2=0 then S:=S+A[i];
end;
for i:=1 to n do if A[i] mod 2=0 then write(A[i]:3);
writeln(‘Tong cac so chan la: ‘,S);
readln;
end.
Học tốt!
[B][COLOR=”Blue”]
Uses crt;
var a: array [1..1000] of integer;
i, n, tong: integer;
begin clrscr;
write (‘Nhap so luong phan tu: ‘); readln (n);
for i:= 1 to n do begin write (‘Nhap phan tu thu ‘,i,’: ‘); readln (a[i]);
if a[i] mod 2 = 0 then tong:=tong+a[i];
end;
write (‘Cac so chan trong day: ‘);
for i:= 1 to n do
if a[i] mod 2 = 0 then write (a[i],’ ‘);
writeln; write (‘Tong cac so chan la ‘,tong);
readln
end.
Cho mình vote 5 sao và câu trl hay nhất nhé, Thanks