viết chương trình nhập vào 1 dãy số ko âm tính tổng dãy số và xem tổng là số chẵn hay lẻ
nếu chẵn thì in ra màn hình là tổng là số chẵn và ngược lại
nhanh nha mọi người
viết chương trình nhập vào 1 dãy số ko âm tính tổng dãy số và xem tổng là số chẵn hay lẻ nếu chẵn thì in ra màn hình là tổng là số chẵn và ngược lại n
By aikhanh
program kiemtratong;
uses crt;
var A:array[1..1000] of integer;
n,i:integer;
s:longint;
begin
clrscr;
write(‘Nhap so luong phan tu cua day: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);
s:=0;
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’: ‘);
readln(A[i]);
s:=s+A[i];
end;
writeln(‘Tong cua day so la: ‘,s);
if s mod 2=0 then write(‘Tong la so chan’)
else write(‘Tong la so le’);
readln
end.
uses crt;
var a:array[1..1000] of word;
i,n,s: word;
begin
clrscr;
write (‘nhap so phan tu cua mang: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
s:=s+a[i];
end;
writeln (‘tong la: ‘,s);
if s mod 2=0 then writeln (‘tong la so chan’);
if s mod 2<>0 then writeln (‘tong la so le’);
readln;
end.