$#Quang$

________________________________

uses crt;

var a:array[1..100]of real;

n,i:integer;

tb:real;

begin

clrscr;

write('Nhap so ban:'); readln(n);

for i:=1 to n do

n=int(input('nhap so ban: '))
a=[float(input('nhap diem toan cua ban thu %d: '%i)) for i in range (1,n+1)]
print('diem trung binh:',sum(a)/n)
print('ban co diem cao nhat:',*[i+1 for i in range (n) if (a[i]==max(a))])
print('ban co diem thap nhat:',*[i+1 for i in range(n) if (a[i]==min(a))])

$\color{green}{\text{Cần code C/C++, Java, C#, JavaScript thì nói để mình thêm}}$

$\color{red}{\text{#Daoanhviet96}}$