program maximum;
const n = 10;
var a:array [1..n] of integer;
i,maxindex: integer;
begin
for i:=1 to n do
write(i:2, ' ');
writeln;
randomize;
a[1]:=10+random(90);
write(a[1], ' ');
maxindex:=1;
for i:=2 to n do
begin
a[i]:=10+random(90);
write(a[i], ' ');
if a[maxindex] < a[i] then maxindex:=i;
end;
writeln;
writeln('max: ', a[maxindex], '; sorszama: ', maxindex);
readln;
end.
cHJvZ3JhbSBtYXhpbXVtOwpjb25zdCBuID0gMTA7CnZhciBhOmFycmF5IFsxLi5uXSBvZiBpbnRlZ2VyOwogICAgaSxtYXhpbmRleDogaW50ZWdlcjsKYmVnaW4KICBmb3IgaTo9MSB0byBuIGRvCiAgICB3cml0ZShpOjIsICcgJyk7CiAgd3JpdGVsbjsKICByYW5kb21pemU7CiAgYVsxXTo9MTArcmFuZG9tKDkwKTsKICB3cml0ZShhWzFdLCAnICcpOwogIG1heGluZGV4Oj0xOwogIGZvciBpOj0yIHRvIG4gZG8KICBiZWdpbgogICAgYVtpXTo9MTArcmFuZG9tKDkwKTsKICAgIHdyaXRlKGFbaV0sICcgJyk7CiAgICBpZiBhW21heGluZGV4XSA8IGFbaV0gdGhlbiBtYXhpbmRleDo9aTsKICBlbmQ7CiAgd3JpdGVsbjsKICB3cml0ZWxuKCdtYXg6ICcsIGFbbWF4aW5kZXhdLCAnOyBzb3JzemFtYTogJywgbWF4aW5kZXgpOwogIHJlYWRsbjsKZW5kLg==