BT5: Nhập vào n số nguyên (3<=n<=1000) a) Xuất ra các số vừa nhập b) Xuất ở vị trí lẻ c) Xuất các số lẻ và số lượng d)Xuất các số ở vị trí chẵn e) Xuất các số chẵn và số lượng f)Tính tổng các số lẻ g)Tính tổng các số chẵn
BT5: Nhập vào n số nguyên (3<=n<=1000) a) Xuất ra các số vừa nhập b) Xuất ở vị trí lẻ c) Xuất các số lẻ và số lượng d)Xuất các số ở vị trí chẵn e) Xuấ
By Rose
uses crt;
var a:array[1..1000] of integer;
n,i,d1,d2,s1,s2:integer;
begin
clrscr;
repeat readln(n);
until (3<=n) and (n<=1000);
d1:=0;d2:=0;s1:=0;s2:=0;
for i:=1 to n do begin write(‘a[‘,i,’=]’);
readln(a[i]);
end;
write(‘Cac so vua nhap: ‘);
for i:=1 to n do write(a[i],’ ‘)
writeln;
write(‘Cac so le: ‘);
for i:=1 to n do if a[i] mod 2<>0 then
begin write(a[i],’ ‘);
d1:=d1+1;
s1:=s1+a[i];
end;
writeln;
writeln(‘So luong so le: ‘,d1);
writeln(‘Tong cac so le: ‘,s1);
write(‘Cac so chan: ‘);
for i:=1 to n do if a[i] mod 2=0 then
begin write(a[i],’ ‘);
d2:=d2+1;
s2:=s2+a[i];
end;
writeln;
writeln(‘So luong so chan: ‘,d2);
writeln(‘Tong cac so le: ‘,s2);
write(‘Vi tri cac so le: ‘);
for i:=1 to n do if a[i] mod 2<>0 then write(i,’ ‘);
writeln;
write(‘Vi tri cac so chan: ‘);
for i:=1 to n do if a[i] mod 2=0 then write(i,’ ‘);
readln
end.
program oken;
uses crt;
var a: array[3..1000] of integer;
n,i,s,dem: longint;
begin
clrscr;
repeat
write(‘Nhap so phan tu cua mang: ‘); readln(n);
until (n>=3) and (n<=100);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘);
readln(a[i]);
end;
write(‘Mang vua nhap: ‘);
for i:=1 to n do
write(a[i],’ ‘);
writeln; write(‘Cac so le trong mang: ‘);
for i:=1 to n do
if a[i] mod 2=1 then
begin
write(a[i],’ ‘);
dem:=dem+1;
s:=s+a[i];
end;
writeln; writeln(‘Tong cac so le: ‘,s);
writeln(‘So luong cac so le: ‘,dem);
write(‘Cac so chan trong mang: ‘); dem:=0; s:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i],’ ‘);
dem:=dem+1;
s:=s+a[i];
end;
writeln; writeln(‘Tong cac so le: ‘,s);
writeln(‘So luong cac so le: ‘,dem);
readln;
end.