viết ct xác định số lần xuất hiện các số nguyên chẵn và tính tổng các số đó trong dãy n số nguyên nhập từ bàn phím (n>=1)?
2 câu trả lời
uses crt;
var n, x, i, cnt, res: Longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(x);
if x mod 2 = 0 then
begin
inc(cnt);
inc(res, x);
end;
end;
writeln(cnt);
writeln(res);
readln;
end.
uses crt;
var i,n,s,d:longint; a:array[1..10000]of longint;
begin
clrscr;
write('Nhap n: ');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
begin
inc(d);
inc(s,a[i]);
end;
end;
writeln('So lan xuat hien: ',d);
writeln('Tong: ',s);
readln
end.
Câu hỏi trong lớp
Xem thêm