VCT nhập 1 dãy số in ra tổng 3 số lớn nhất

– In ra phần tử lớn nhất và nhỏ nhất

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

i,k,n:integer;

begin

readln(n); k:=0;

for i:=1 to n do begin

readln(a[i]);

if a[i]>k then k:=a[i];

end;

writeln(k);

for i:=1 to n do if a[i]=k then write(i,#32);

readln

end.