Viết chương trình rồi xuất ra màn hình dãy số vừa nhập Tính tổng lẻ Đếm số chẵn
By Lydia
Viết chương trình rồi xuất ra màn hình dãy số vừa nhập Tính tổng lẻ Đếm số chẵn
0 bình luận về “Viết chương trình rồi xuất ra màn hình dãy số vừa nhập Tính tổng lẻ Đếm số chẵn”
uses crt; var n,i,s,d:longint; a:array[1..100]of longint; begin clrscr; readln(n); for i:=1 to n do begin readln(a[i]); if (a[i] mod 2=1) then inc(s,a[i]) else inc(d); end; write(‘Day so: ‘); for i:=1 to n do write(a[i],’ ‘); writeln; writeln(‘Tong le: ‘,s); writeln(‘Co ‘,d,’ so chan’); readln; end.
uses crt;
var n,i,s,d:longint; a:array[1..100]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if (a[i] mod 2=1) then inc(s,a[i]) else inc(d);
end;
write(‘Day so: ‘);
for i:=1 to n do write(a[i],’ ‘); writeln;
writeln(‘Tong le: ‘,s);
writeln(‘Co ‘,d,’ so chan’);
readln;
end.