Tran Van Viet Anh
01/01/1970
| Số câu hỏi | 0 |
| Số câu trả lời | 1 |
| Điểm | 5 |
| Kết bạn | |
Bạn bè (0)
Hoạt động gần đây (1)
-
Tran Van Viet Anh đã trả lời trong câu hỏi: Đề tin 8: cho 5 số bất kì dược nhập từ bàn phím.tính tổng số lẻ và in ra màn hinh Cách đây 5 năm
uses crt;
var A: array[1..5] of integer;
i,tong: integer;
begin
clrscr;
writeln('Nhap vao 5 so bat ki: ');
for i:= 1 to 5 d0
begin
write('A[',i,'] = ');
readln(A[i]);
end;
tong:= 0;
for i:= 1 to 5 do
if A[i] mod 2 <> 0 then tong:= tong + A[i];
writeln('Tong cac so le vua duoc nhap vao la: ',tong);
readln;
end.
