Question

Cho tệp SO.INP có 2 dòng: dòng 1 chứa số nguyên N (N_<100) và dòng 2 dãy N số nguyên a1,a2,.. aN. Ciết chương trình đưa ra tệp SO.OUT

a. Các số lẻ trong dãy

b. Số lượng các số lẻ trong dãy

c. Số lượng các số dương trong dãy. d. Các số dương trong dãy

Answer 1

const fi='so.inp';
fo='so.out';
var f1,f2:text;
a:array[1..100]of integer;
n,i,dem,dem1:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
writeln(f2,'Cac so le trong day la: ');
dem:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
write(f2,a[i]:4);
dem:=dem+1;
end;
writeln(f2);
writeln(f2,'So luong cac so le trong day la: ',dem);
writeln(f2,'Cac so duong trong day la: ');
dem1:=0;
for i:=1 to n do
if a[i]>0 then
begin
write(f2,a[i]:4);
dem1:=dem1+1;
end;
writeln(f2);
writeln(f2,'So luong cac so duong trong day la: ',dem1);
close(f1);
close(f2);
end.

Answer 2

Program HOC24;

const fi='SO.INP';

fo='SO.OUT';

var f: text;

i,n,d,d1: integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do read(f,a[i]);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

for i:=1 to n do

if a[i] mod 2<>0 then

begin

write(f,i,' ');

d:=d+1;

end;

writeln(f);

writeln(f,d);

d1:=0;

for i:=1 to n do

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

writeln(f,d1);

for i:=1 to n do

if a[i]>0 then write(f,a[i],' ');

close(f);

end;

begin

ip;

out;

end.