10
7
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
8000
4535
uses crt;
var i,n,c: byte;
a: array[1..200] of longint;
input, output: text;
begin
assign(input, 'BAI19.INP');
reset(input);
i := 1;
n := 0;
c := 0;
while not eof(input) do
begin
read(input, a[i]);
i := i + 1;
n := n + 1;
end;
close(input);
for i := 1 to n do
if a[i] mod 2 <> 0 then c := c + 1;
assign(output, 'BAI19.OUT');
rewrite(output);
writeln(output, n);
for i := 1 to n do
begin
write(output, a[i]);
if i <> n then write(output, ' ');
end;
writeln(output);
write(output, c);
close(output);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
10
157
7
var f,g:text; a: array[1..100] of integer; i,n,p:longint; begin assign(f,'bai18.inp'); reset(f); assign(g,'bai19.out'); rewrite(g); while not eoln(f) do begin inc(i); read(f,a[i]); end; writeln(g,i); for n:= 1 to i do write(g,a[n],' '); writeln(g); p:=0; for n:= 1 to i do begin if a[n] mod 2 =0 then p:=p+1; end; writeln(g,p); close(f); close(g); end. Rút gọnvar f,g:text; a: array[1..100] of integer; i,n,p:longint; begin assign(f,'bai18.inp'); reset(f); assign(g,'bai19.out'); rewrite(g); while not eoln(f) do begin inc(i); read(f,a[i]); end; writeln(g,i)... xem thêm