Question

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

Answer 1

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.