Đề bài:
Viết chương trình nhập vào một dãy số nguyên gồm n phần tử. In ra màn hình các phần tử chẵn và tính tổng của các phần tử chẵn đó.
Yêu cầu:
Viết chương trình tối ưu nhất, dùng ít lệnh nhất
Đề bài:
Viết chương trình nhập vào một dãy số nguyên gồm n phần tử. In ra màn hình các phần tử chẵn và tính tổng của các phần tử chẵn đó.
Yêu cầu:
Viết chương trình tối ưu nhất, dùng ít lệnh nhất
var A: array[1..500] of integer;
n, s, i: integer;
begin
readln(n);
for i:=1 to n do readln(A[i]);
for i:=1 to n do if A[i] mod 2 = 0 then
begin
writeln(A[i]:3);
s:=s+A[i];
end;
write(‘Tong chan: ‘, s);
readln
end.
uses crt;
var i,n,s:integer; a:array[1..1000000]of integer;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]);
writeln(‘Cac so chan: ‘);
for i:=1 to n do
if a[i] mod 2=0 then
begin
writeln(a[i]);
s:=s+a[i];
end;
writeln(‘Tong: ‘,s);
readln
end.