Tệp và thao tác với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phấn Hồng
Nhập một mảng số n phần tử. Tính tổng các phần tụ lẻ .tính giúp mk vs
Bùi Anh Tuấn
28 tháng 1 2021 lúc 20:01

Nguyễn Lê Phước Thịnh
28 tháng 1 2021 lúc 20:44

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

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

writeln('Tong cac phan tu le la: ',t);

readln;

end.


Các câu hỏi tương tự
huyenphuong123456
Xem chi tiết
Trần Hường
Xem chi tiết
Phấn Hồng
Xem chi tiết
Nguyễn Giang
Xem chi tiết
Kim Phụng
Xem chi tiết
quyhdvl123
Xem chi tiết
Miner Đức
Xem chi tiết
nguyễn an phát
Xem chi tiết
Enter Until
Xem chi tiết