Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phạm Công Ngọc Quốc

Cho 1 mảng ( dãy số ) có 10 phàn tử là các số nguyên bất kì . Viết chương trình : a) In ra các phần tử chẵn có trong dãy số b) Tính tổng các phần tử lẻ trong dãy số

Phạm Công Ngọc Quốc
26 tháng 4 2022 lúc 21:23

giúp mik với mai thi mik thi rồi🙏🙏

 

Thế Thôi
26 tháng 4 2022 lúc 22:48

program b1;
uses crt;
var i: integer; a:array[1..100] of integer; s:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('cac phan tu chan la:');
s:=0;
for i:=1 to 10 do if a[i] mod 2=0 then writeln(a[i],' ');
write('Tong cac phan tu le la:');
for i:=1 to 10 do if a[i] mod 2<>0 then s:=s+a[i]; write(s);
readln;
end.

Tham khảo!


Các câu hỏi tương tự
Mai Phương Lê
Xem chi tiết
Minh Duy
Xem chi tiết
Vochehoang
Xem chi tiết
Vochehoang
Xem chi tiết
AETC丶NhấtㅤGG
Xem chi tiết
Lương Trần Phương Linh
Xem chi tiết
Nguyễn Thái Phương Thảo
Xem chi tiết
An Trần
Xem chi tiết
Thị Yến Nhi Trịnh
Xem chi tiết