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

Viết công thức nhập vào dãy n phần tử là số nguyên

a) in ra lần lượt từng giá trị lần lượt trong dãy 

b)in ra tổng các giá trị là số lẻ 

Nguyễn Lê Phước Thịnh
16 tháng 5 2022 lúc 18:35

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]);

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

writeln;

t:=0;

for i:=1 to n do

  if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

readln;

end.


Các câu hỏi tương tự
Mai Phương Lê
Xem chi tiết
Trúc Linh
Xem chi tiết
Minasua Yagami
Xem chi tiết
Tú Thị Tuấn
Xem chi tiết
Trang
Xem chi tiết
Trang Hà
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Phan Hồng Anh
Xem chi tiết
Nguyễn Thái Phương Thảo
Xem chi tiết