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 591
3 năm trước
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
Câu hỏi hot cùng chủ đề
-
4058
-
3635
-
3166
Gửi báo cáo thành công!