Đề thi chọn HSG Tin 9 cấp huyện

s) do vt:=vt+1; if vt=n+1 then writeln('Khong co day con bang ',s) else begin Writeln('Day con:'); for i:=1 to n do begin for j:=i+1 to n do if (s=a[i]+a[j]) then writeln(a[i]:6,a[j]:6); end; end; readln; 3 End. Program bai3; Uses crt; Var a:array[1..100] of longint; n,i,vt,min,max:integer; Begin Clrscr; repeat write('nhap vao so luong phan tu n=');readln(n); until n<=100; for i:=1 to n do begin write('nhap vao phan tu thu a[',i,']=');readln(a[i]); end; writeln('mang vua nhap la='); for i:=1 to n do write(a[i]:6); writeln; vt:=1; while (vt<=n) and (a[vt] mod 20) do vt:=vt+1; if vt=n+1 then writeln('Day khong co so chan') else begin min:=a[vt]; for i:=vt+1 to n do if (a[i] mod 2=0) and (a[i]=0) do vt:=vt+1; if vt=n+1 then writeln('Day khong co so am') else begin max:=a[vt]; for i:=vt+1 to n do if (a[i]<0) and (a[i]>max) then Begin vt:=i; max:=a[i]; end; writeln('Gia tri am lon nhat trong day la ',max,' o vi tri ', vt); end; Readln; 4 End. Program bai4; Uses crt; Var a:array[1..100] of integer; k,i,du,t,kq:longint; Begin clrscr; write('nhap vao so k=');readln(k); for i:=1 to k do begin write('Nhap vao so thu a[',i,']=');readln(a[i]); end; write(‘Cac so vua cho la:'); for i:=1 to k do write(a[i]:6); writeln; kq:=a[1]; for i:=2 to k do begin t:=kq*a[i]; du:=kq mod a[i]; while du

0 do 1,5đ 0,75đ 1,5đ 6đ 0,25đ 1đ 0,5đ 1,75đ begin kq:=a[i]; a[i]:=du; du:=kq mod a[i]; end; kq:=t div a[i]; end; writeln(‘Mat khau la:',kq); readln; End. 2,5đ