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ố
2 câu trả lời
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.
- minh2k7boy
- 20:41
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.
