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

Câu 1 Viết chương trình:

a.Nhập vào mảng A là dãy số nguyên

b.In ra màn hình dãy số A đó

c.In ra màn hình các số nguyên dương trong dãy số A

d.Tính tổng các số lẻ trong dãy số A và hiện kết quả ra màn hình

Kiều Vũ Linh
5 tháng 5 2022 lúc 13:10

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

i,n,s,s1:integer;

begin

write('Nhap so luong phan tu n = ');readln(n);

for i:=1 to n do

begin

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

end;

writeln('Cac so vua nhap la ');

for i:=1 to n do

write(a[i],'   ');

for i:=1 to n do

if a[i] > 0 then s:=s+a[i];

for i:=1 to n do

if a[i] mod 2 = 1 then s1:=s1+a[i];

writeln('Tong cac so nguyen duong trong day la ',s);

write('Tong cac so le la ',s1);

readln;

end.


Các câu hỏi tương tự
Ngọc Nguyễn
Xem chi tiết
Ngáo Ngơ Alice
Xem chi tiết
ngô bá hiếu
Xem chi tiết
Hắc Lang
Xem chi tiết
Lê Nguyễn Ánh Nguyệt
Xem chi tiết
anhle
Xem chi tiết
Lê Thùy Ánh
Xem chi tiết
erddedfrferf ffvf fd
Xem chi tiết
Yeu DUong nhat
Xem chi tiết