Bài toán: Nhập từ bàn phím dãy số nguyên dương gồm N (N ≤ 100) phần tử: A1,
A2,..., An.
* Yêu cầu
a. Hiển thị ra màn hình dãy số vừa nhập.
b. Tính và hiển thị tổng các số không âm có trong dãy số đó.
GIẢI GIÚP VỚI MN
Quảng cáo
1 câu trả lời 708
uses crt;
var a:array[1..100]of integer;
i,n,tc,tl,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tc:=0;
tl:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then tc:=tc+a[i]
else tl:=tl+a[i];
end;
writeln('Tong cac so chan la: ',tc);
writeln('Tong cac so le la: ',tl);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
readln;
end.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
4301 -
Đã trả lời bởi chuyên gia
3884
-
Đã trả lời bởi chuyên gia
3463
-
Lionel Andres Messi
550 điểm
-
BI IS SAD | K12 ♡ ... ? 355 điểm
-
✎YLY. Sealine౨ৎ
345 điểm
-
Nguyễn Thị Quỳnh Mai
225 điểm
-
Minh nè:))
210 điểm
-
Yui Lú Cutee
125 điểm
-
HỌC BÁ 8B5
105 điểm
-
hoàng chí vỹ 105 điểm
-
Huy Nguyễn 90 điểm
-
tường vy đỗ 85 điểm
-
annqa
65 điểm
-
nam anh
65 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước11865
-
4 năm trước11240
-
4 năm trước9905
-
4 năm trước10200
-
4 năm trước9637
