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,...An có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình các thông tin sau : a. Tổng số nguyên chẵn , tổng số nguyên lẻ của dãy số. b.Tổng giá trị của dãy số . ai giúp em với ạ, em xin cám ơn, em cần gấp ạ
Uses crt;
Var B:Array[1..100] of integer;
i, n, tc, tl, tm: longint;
Begin
Clrscr;
Write(‘Nhap n = ‘); readln(n);
For i:=1 to n do
Begin
Write(‘B[‘,i,’]=’);
Readln(B[i]);
End;
tc:=0; tl:=0; tm:=0;
For i:=1 to n do if B[i] mod 2 = 0 then inc(tc, b[i]);
For i:=1 to n do if B[i] mod 2 = 1 then inc(tl, b[i]);
For i:=1 to n do inc(tm, b[i]);
Writeln(‘Tong so nguyen chan la: ‘,tc:0:2);
Writeln(‘Tong so nguyen le la: ‘,tl:0:2);
Writeln(‘Tong gia tri cua day so la: ‘,tm:0:2);
Readln
End.
program Bai;
uses crt;
var A:array[1..100] of integer;
i,n,s1,s2,s: integer;
begin
write(‘Nhap n phan tu:’); readln(n);
s1:=0;
s2:=0;
s:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]=’);
readln(A[i]);
end;
for i:=1 to n then
begin
if A[i] mod 2=0 then s1:=s1+n;
if A[i] mod 2<>0 then s2:=s2+n;
s:=s1+s2;
end;
writeln(‘Tong cac so nguyen chan la:’,s1);
writeln(‘Tong cac so nguyen le la:’,s2);
writeln(‘Tong gia tri day la’,s);
readln
end.