Question

Cho dãy số nguyên A gồm N số nguyên dương a₁,a₂,...a_N ( trong đó N<=50, 0<=a_i<= 32767).hãy viết chương trình thực hiện các lệnh sau

a) nhập dữ liệu cho dãy số A

b) In ra màn hình dãy số A vừa nhập

c) Tính tổng các phần tử có giá trị lẻ bên trong A

đ) in ra màn hình giá trị các số lẻ trong A

Answer 1

uses crt;

var a:array[1..50]of integer;

t,i,n:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until (0<n) and (n<=50);

for i:=1 to n do

begin

repeat

write('A[',i,']='); readln(a[i]);

until (0<=a[i]) and (a[i]<=32767);

end;

writeln('Day A=');

for i:=1 to n do

write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

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

writeln('Tong cac so le la: ',t);

writeln('Cac so le trong day A la: ');

for i:=1 to n do

if a[i] mod 2=1 then write(a[i]:4);

readln;

end.