Как я поняла, нужно было использовать кусок кода, данный выше?
var
a: array[1..10] of integer;
imax, i: byte;
begin
Writeln('Массив:');
Randomize;
for i:=1 to 10 do
begin
a[i]:=Random(100);
write(a[i]:4);
end;
imax := 1;
for i:=2 to 10 do
if a[i] > a[imax] then imax := i;
writeln;
writeln('Максимальный элемент = ', a[imax]:3, ' в позиции ', imax:2);
<span>end.</span>
Мальчик, увидев на светофоре знак того, что можно перейти дорогу, смело пошел по зебре, расположенной на дороге, а водитель, увидев , что ехать нельзя, остановился и ждет, пока пешеходы перейдут дорогу.