Bài 8. Lặp với số lần chưa biết trước

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

Bài 2: Viết chương trình nhập vào mảng n số nguyên. Tính và in ra màn hình tổng các số chẵn, lẻ của mảng vừa nhập.

Nguyễn Huyền Trâm
26 tháng 5 2020 lúc 20:52

program Project1;

var a:array [1..100] of integer;
n, i: integer;
le: integer;
begin
write('Nhap so phan tu co trong mang: '); readln(n);
for i:=1 to n do
begin
write('Nhap vao phan tu thu A[',i,']: '); readln(A[i]);
end;
le:=0;
for i:=1 to n do
begin
if (A[i] mod 2 <> 0) then
le:=le+A[i];
end;
writeln('Tong cac phan tu le la ', le);
readln;
end.


Các câu hỏi tương tự
Nguyễn Thị Ngọc Oanh
Xem chi tiết
Mỹ Trinh
Xem chi tiết
Joc Bok
Xem chi tiết
huỳnh duy cát
Xem chi tiết
Giap Nguyen Van
Xem chi tiết
HUY HUỲNH QUANG
Xem chi tiết
hoho209
Xem chi tiết
Trần Thị Mai Ngọc
Xem chi tiết
nguyễn thị như ý
Xem chi tiết