Viết chương trình nhập dãy số in ra các số lẻ ra màn hình, tính tổng của các số lẻ có trong danh sách. MÌnh đang cần gấp ạ, Cảm ơn!
2 câu trả lời
uses crt;
var A:array[1..1000] of integer;
N,i,tong:integer;
begin
clrscr;
write('Nhap N: '); readln(N);
for i:=1 to N do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
if A[i] mod 2 = 1 then tong:=tong+A[i];
end;
writeln;
for i:=1 to N do if A[i] mod 2 = 1 then write(A[i]:4);
writeln;
write('Tong cac so le la: ',tong);
readln
end.
Uses crt;
Var A:array[1..1000] of integer;
S,n,i: integer;
Begin
Clrscr;
Write('Nhap cac phan tu:'); readln(n);
For i:=1 to n do readln (A[i]);
S:=0;
For i:=1 to n do
If A[i] mod 2= 1 then S:=S+A[i];
For i:= 1 to n do if A[i] mod 2=1 then write(A[i]:4);
Writeln(A[i]);
Readln
End.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
