Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thùy Linh Võ

Viết chương trình nhập vào 1 dãy số, với N được nhập từ bàn phím

a) In các phần tử lẻ

b) Tính tổng các phần tử lẻ

Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 0:08

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then 

begin

write(a[i]:4);

t:=t+a[i];

end;

writeln;

writeln(t);

readln;

end.


Các câu hỏi tương tự
Thùy Linh Võ
Xem chi tiết
Mai Phương Lê
Xem chi tiết
erddedfrferf ffvf fd
Xem chi tiết
Thị Yến Nhi Trịnh
Xem chi tiết
Vochehoang
Xem chi tiết
Anh Đức 8/8
Xem chi tiết
hà phương
Xem chi tiết
Tú Thị Tuấn
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết