program n_4;
var i, imax: integer;
a: array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(100);
for i:=1 to 10 do write(a[i],' ');
imax:=1;
for i:=2 to 10 do
if a[i]>a[imax] then
imax:=i;
write('Наибольший элемент a[', imax, ']=', a[imax])
end.
cHJvZ3JhbSAgbl80OwogIHZhciBpLCBpbWF4OiBpbnRlZ2VyOyAKICAgICAgYTogYXJyYXlbMS4uMTBdIG9mIGludGVnZXI7CmJlZ2luIAogIHJhbmRvbWl6ZTsKCiAgZm9yIGk6PTEgdG8gMTAgZG8gYVtpXTo9cmFuZG9tKDEwMCk7CiAgZm9yIGk6PTEgdG8gMTAgZG8gd3JpdGUoYVtpXSwnICcpOwoKICBpbWF4Oj0xOwoKICBmb3IgaTo9MiB0byAxMCBkbwogICAgaWYgYVtpXT5hW2ltYXhdIHRoZW4KICAgICAgIGltYXg6PWk7CgogIHdyaXRlKCfQndCw0LjQsdC+0LvRjNGI0LjQuSDRjdC70LXQvNC10L3RgiAgIGFbJywgaW1heCwgJ109JywgYVtpbWF4XSkKCmVuZC4=