Viết chương trình nhập dãy số nguyên và tính tổng các số lẻ trong dãy số đó . Cho mk cái sườn nhé .c ơn
2 câu trả lời
program ct;
uses crt;
var n,i,s:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i=1 to n do
begin
write('nhap mang A[',i,']:=');readln(A[i]);
end;
s:=0;
for i:=1 to n do
if A[i] mod 2=1 then s:=s+A[i];
write('tong cac so le la:',s);
readln
end.
Uses crt;
Var var a:array [1..100] of integer;
tong,i,n:integer;
Begin
Clrscr;
readln(n); tong:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i] mod 2<>0 then
tong:=tong+a[i];
end;
writeln('tong cac so le la:',tong);
readln;
end.
Câu hỏi trong lớp
Xem thêm
