const fi='nix.inp'; fo='nix.out'; var f:text; j,i,n,max:0..100; a,b,l,m: array [0..101] of 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); for i:= 0 to n do l[i] := 1; for i:= 1 to n do for j:= i to n do if (a[j] > a[i] ) and (l[j] < l[i] + 1 ) then begin l[j] := l[i] + 1; m[j]:= i; end; max:=0; for i:= 1 to n do if l[i] > max then begin j:=i; max:=l[i]; end; while m[j] <> 0 do begin l[j]:=-l[j]; j:=m[j]; end; l[j]:=-l[j]; for i:= 1 to n do if l[i] < 0 then write(f,i,' ');

close(f); end; BEGIN ip; out; END.

haizzzz đáng lẽ ra dc 19,5 điểm mà bị trừ mất 0,5 điểm vì ko ghi mã đề vòng sau sẽ rút kinh nghiệm :D

lọt rồi

Tên: Đoàn Xuân Sơn Lớp : 9 link tài khoản : https://hoc24.vn/vip/sonkkson

program zoo; var i,n,k,d:integer; a:array[1..32000] of integer; function hello(x,y:integer):boolean; begin hello:=false; if x mod y = 0 then hello := true end; begin write(' nhap n: '); readln(n); for i:= 1 to n do begin write(' nhap a[',i,'] = '); readln(a[i]); end; write(' nhap k = '); readln(k);

d:=0; for i:= 1 to n do if hello(a[i],k) = true then d:=d+1; write(' so luong so chia het cho k la : ',d); readln; end.

bạn ơi chỗ var thêm f:text nha bạn

const fi='k.inp';

fo='k.out';

var

i,n,k,d:integer; a:Array[1..32000] of integer;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:= 1 to n do

read(f,a[i]);

readln(f);

read(f,k);

close(f);

assign(f,fO);

rewrite(f);

d:=0;

for i:= 1 to n do if a[i] mod k = 0 then inc(d);

write(f,' co ',d,'so chia het cho',k);

close(f);

end.

program son; var

i,n:integer;

a:array[1..32000] of integer;

begin

write(' nhap n : '); readln(n);

for i:= 1 to n do

begin

write(' nhap a[',i,']');

readln(a[i]);

end;

for i:= 1 to n do

if a[i] mod 2 <> 0 then write(a[i],' ')

readln

end.

1: 500 vòng. 2: cuộn sơ cấp có số vòng ít hơn cuộn thứ cấp