Đáp án THSG huyện Quảng Điền 12-13

bai 1 uses crt; var a:array[1..6,1..6] of byte; n,i,j,t:byte; begin clrscr; write(`Nhap do dai: `); readln(n); for i:=1 to n do for j:=1 to n do begin write(` A[`,i,`,`,j,`]: `); readln(a[i,j]); end; t:=0; if n mod 2=0 then for i:=1 to n do t:=t+a[i,i]+a[i,n+1-i] else for i:=1 to n do if i=(n+1)/2 then t:=t+a[i,i] else t:=t+a[i,i]+a[i,n+1-i]; write(`KQ: `,t); readln; end. bai 2 uses crt; var f1,f2:text; st,st1,st2:string; i:byte; b:boolean; begin clrscr; write(`Nhap dia chi file vao: `); readln(st1); write(`Nhap dia chi file ra: `); readln(st2); assign(f1,st1); reset(f1); assign(f2,st2); rewrite(f2); while not eof(f1) do begin readln(f1,st); b:=true; for i:=1 to length(st) div 2 do if st[i]<>st[length(st)+1-i] then b:=false; if b=true then writeln(f2,length(st)) else writeln(f2,`0`); end; close(f1); close(f2); readln; end. bai 3 uses crt; var f1,f2:text; i,j,i1,j1,n,m:byte; a:array[1..100,1..10]of byte; b1,b:boolean; st1,st2:string; begin clrscr; write(`Nhap dia chi file vao: `); readln(st1); write(`Nhap dia chi file ra: `); readln(st2); assign(f1,st1); reset(f1); assign(f2,st2); rewrite(f2); read(f1,n); write(n:3); read(f1,m); write(m:3); writeln; b1:=false;; for i:=1 to n do begin for j:=1 to m do begin read(f1,a[i,j]); write(a[i,j]:5); end; writeln; end; for i:=1 to n do for j:=1 to m do begin b:=true; for i1:=1 to n do if (a[i,j]i) then b:=false; for j1:=1 to n do if (a[i,j]>a[i,j1]) and (j1<>j) then b:=false; if b=true then begin writeln(f2,i:3,j:3); b1:=true; end; end; if b1=false then write(f2,`khong co`); close(f1); close(f2); readln; end.