câu 1:
uses crt;
var
i,ss,tong,a: integer;
n: array [1..150] of integer;
begin
clrscr;
write('nhap so phan tu cua day n: ');
readln(a);
for i:=1 to a do
begin
write('nhap phan tu thu ',i,': ');
readln(n[i]);
end;
ss:=n[1];
for i:=2 to a do
if ss<n[i] then ss:=n[i];
writeln('so lon nhat trong day la: ',ss);
write('cac vi tri dat max la: ');
tong:=0;
for i:=1 to a do
if ss=n[i] then
begin
write(i:3);
tong:=tong+n[i];
end;
writeln;
writeln('tong la: ',tong);
readln;
end.
