Viết chương trình nhập vào dãy số nguyên có N phần tử ( N nhập từ bàn phím ).Hiển thị kết quả các số chẵn và tính tổng các số chẵn ra màn hình
Viết chương trình nhập vào dãy số nguyên có N phần tử ( N nhập từ bàn phím ).Hiển thị kết quả các số chẵn và tính tổng các số chẵn ra màn hình
By Remi
program ct;
uses crt;
var s,i,n:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]=’); readln(a[i]);
end;
s:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then writeln(‘cac so chan la’,a[i]);
if a[i] mod 2=0 then s:=s+a[i];
end;
writeln(‘tong cac so chan la’,s);
readln
end.
program phuongt;
uses crt;
var A: array[1..500] of integer;
n, i, s integer;
begin
clrscr;
write(‘Nhap n = ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘, i, ‘] = ‘); readln(A[i]);
end;
s:=0;
write(‘Cac so chan: ‘);
for i:=1 to n do if A[i] mod 2 = 0 then
begin
write(A[i]:3);
s:=s+A[i];
end;
writeln;
write(‘Tong so chan: ‘, s);
readln
end.