Một lớp gồm N học sinh (3<=N<=50). Gỉa sử điểm kiểm tra học kì môn Tin, theo thứ tự của các học sinh trong lớp là a1,a2,a3,...;an. Hãy viết chương trình thực hiện các công việc sau: a, Nhập sĩ số lớp và điểm kiểm tra tin của các học sinh trong lớp b, Tìm và thông báo lên màn hình điểm cao nhất. Có bao nhiêu học sinh đạt điểm cao nhất, đó là những học sinh nào (có thứ tự nào trong danh sách lớp)?
Program NN;
Uses crt;
Var A: array[1..50] of longint;
n,i,max,d: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
max:=0;
For i:=1 to n do Read(A[i]);
Writeln(max);
d:=0;
For i:=1 to n do
If A[i]=max then inc(d);
Writeln(d);
For i:=1 to n do
If A[i]=max then Write(i,’ ‘);
Readln
End.