CỨU EM VỚI , SÁNG MAI EM THI RỒI…………
Viết chương trình nhập từ bàn phím số nguyên dương N ( N<= 100) và dãy số nguyên A1, A2, A3,…An có trị tuyệt đối nhỏ hơn 1000. Hãy đưa ra màn hình những thông tin sau:
a. Tổng số nguyễn chẵn, tổng số nguyên lẻ trong dãy số
b. Tổng giá trị của dãy số
uses crt;
var a: array[1..100] of integer;
var n,i,sc,sl,s: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
repeat
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
if abs(a[i])<1000 then
begin
s:=s+a[i];
if a[i] mod 2=0 then sc:=sc+a[i];
if a[i] mod 2<>0 then sl:=sl+a[i];
end;
until abs(a[i])<1000;
end;
writeln (‘tong cac so le trong day: ‘,sl);
writeln (‘tong cac so chan trong day: ‘,sl);
writeln (‘tong gia tri cua day so: ‘,s);
readln;
end.
Chúc ban thi tốt nhea !!!
꧁༺???????????? ????????????̉ ????????????????????????ッ