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 617
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 muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
4101
-
3687
-
3219
