uses crt;

var A : array [1 .. 10] of integer;

i, S : integer;

begin

clrscr;

S := 0;

for i := 1 to 10 do

    begin

        write('Nhap luong cong nhan ', i ,' : ');

        readln(A[i]);

        S := S + A[i];

    end;

writeln('Tong luong : ', S);

writeln('Trung binh cong luong : ', S / 10 : 2 : 1);

write('Luong nguoi thu ');

for i := 1 to 10 do

    if A[i] > S / 10 then write(i, ' ');

write('cao hon trung binh cong');

readln

end.

uses crt;

var a: array[1..10] of integer;

i,s: integer;

begin

clrscr;

for i := 1 to 10 do

begin

write('nhap luong CN thu ', i ,': ');   readln(a[i]);

s:=s+a[i];

end;

writeln('Tong: ',s);

writeln('Trung binh luong: ',s/10:1:2);

for i := 1 to 10 do

if a[i] > S/10 then

writeln ('Luong nguoi thu ',i,' cao hon tbc');

readln;

end.

$#Trumtinhoc$