Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Tai Lam

Viết chương trình nhập vào các số nguyên cho đến khi nào gặp số 0 thì kết thúc. Tính tổng các số lẻ được nhập vào.

 

ERROR
9 tháng 5 2022 lúc 21:47

refer

program dem;

uses crt;

var n,i,j,S: integer;

      a:array[1..100] of integer;

begin

i:=0;

S:=0;

while(readln(n)) do

begin

 if(n:=0) then break;

 i:=i+1;

 a[i]:=n;

end;

for j:=1 to i do 

begin

 if(a[j] mod 2 <> 0) then S:=S+a[j];

end;

write(‘Tong cua cac so le la: ‘,S);

readln;


Các câu hỏi tương tự
Tai Lam
Xem chi tiết
depzaivl
Xem chi tiết
日光
Xem chi tiết
Nguyễn Tùng
Xem chi tiết
tho hit co
Xem chi tiết
Na Ly
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Huy Đại Ca
Xem chi tiết
Thắng Cao Toàn
Xem chi tiết