Program VD;
Var a: array [1..50]  of integer;
Var i,W,N,Max,P,Q, H: integer;
Begin
Write (' Nhap day so A tu ban phim');
Readln (N);
For i:= 1 to N do
Begin 
Write ( 'Nhap so thu', i,':');
Readln (a[i]);
If (a[i] >500 ) then
begin 
Write (' Nhap lai so thu', i, ':');
Readln (a[i]);
end;
end;
W:=0;
For i:= 1 to N do W:= W+ a[i];
Writeln ('Tong cac phan tu cua day la:', W);
Max:= a[1];
For i:= 1 to N do
Begin
If (a[i]>Max) then Max:= a[i];
End;
For i:= 1 to N do 
Begin
If (a[i] = Max) then P:= i;
End;
Writeln (' So lon nhat trong day la: ', Max, ' Chi so lon nhat la:', P);
Q:= 0;
For i:= 1 to N do
Begin 
If (a[i] = Max) then Q:= Q+1;
End;
Writeln (' Co', Q, 'phan tu cung lon nhat');
For i:= 1 to N do
Begin 
If (a[i] =0) then Write (i: 5);
End; 
Readln;
End.
 -Đã chay thử chương trình và đã thành công- 
- cho mình 10 đ nha-