Viết chương trình vào dãy số và in ra các số lẻ (sử dụng mảng)
Quảng cáo
1 câu trả lời 2039
program hotrotinhoc ;
var a : array[1..n] of integer ;
i,n,tong : integer;
begin
write('Nhap do dai cua day n:'); readln(n);
writeln('Nhap gia tri cua cac phan tu ');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0;
for i:=1 to n do
if a[i] mod 2 <> 1 then tong:=tong+a[i];
write('Tong cac so le la :',tong);
readln
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
3987
-
3584
-
3103
Gửi báo cáo thành công!