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

Em hãy viết chương trình nhập vào mảng A gồm 100 phần tử. tính và đưa ra màn hình tổng các phần tử không chia chết cho 2 trong mảng. Mn ơi giúp mình làm bài này với ạ TT mình cảm ơn mọi người nhiều!! (pascal nhé mấy bạn ơi

Kiều Vũ Linh
14 tháng 3 2023 lúc 9:24

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

i,s:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.


Các câu hỏi tương tự
Thảo Nguyễn
Xem chi tiết
Bé Kunz
Xem chi tiết
Danh Nguyễn
Xem chi tiết
An Thuyên Đỗ
Xem chi tiết
namok123
Xem chi tiết
Huy Hoàng Phạm
Xem chi tiết
ngomanhcuong
Xem chi tiết
Nghia Phan
Xem chi tiết
feng
Xem chi tiết