uses crt; var a:array[1..20] of longint; t:longint; i,d,k:byte; procedure xuat; var f: text; begin assign(f,'KQ.txt'); rewrite(f); writeln(f,d); writeln(f,t/5:0:3); writeln(f,k); close(f); end; begin clrscr; t:=0; d:=0; k:=0; for i:=1 to 5 do begin write('sn[',i,']: '); readln(a[i]); t:=t+a[i]; if abs(a[i])>50 then inc(d); end; for i:=1 to 5 do if a[i]>t/5 then inc(k); xuat; end.
uses crt; var f:text; i,n,d:longint; a:array[1..20]of longint; tb:real; begin clrscr; for i:=1 to 20 do begin write('Nhap phan tu thu ',i,': ');readln(a[i]); tb:=tb+a[i]; end; assign(f,'output.pas');rewrite(f); write(f,'a. '); for i:=1 to 20 do if a[i]>50 then write(f,a[i],' '); writeln(F); tb:=tb/20; writeln(f,'b. ',tb:0:2); for i:=1 to 20 do if a[i]>tb then inc(d); writeln(f,'c. ',d); close(f); readln end.
