Const n=10;
<span>var i,j,k,mx,ind: integer;
</span><span> a: array[1..n] of integer;
</span><span>begin
</span><span> writeln('исходный массив:');
</span><span> randomize;
</span><span> mx:=0;
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(2*n)-n;
</span><span> write(a[i],' ');
</span><span> if a[i]>mx then
</span><span> begin
</span><span> mx:=a[i];
</span><span> ind:=i;
</span><span> end;
</span><span> end;
</span><span> writeln;
</span><span> for i:=ind+1 to n-1 do
</span><span> for j:=i+1 to n do
</span><span> if a[i]>a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
</span><span> writeln('новый массив:');
</span><span> for i:=1 to n do write(a[i],' ');
</span><span>end.
</span>исходный массив:
<span>3 7 7 5 5 -2 -8 -9 -8 6
</span><span>новый массив:
</span><span>3 7 -9 -8 -8 -2 5 5 6 7
</span><span>
</span>
Вы добавили вчера , вам ещё нужно?
Вероятная система каталога:
D:\\
-Информатика\
--Контрольная.txt
-Млекопитающие\
--хищники\
.
Ход такой, исходный путь:
<span>D:\\
-Млекопитающие\
--хищники\
.
Поднялся на 2 уровня вверх, то-есть перешол в корень каталога(</span>D:\\ ), после чего перешол в папку (-Информатика\ ), потом находим файл (--Контрольная.txt).
Алеше надо ехать АБ+БГ+ГИ+ИК= 50+40+30+30=150:95=1,58 часов
Боре надо ехать БГ+ГИ+ИК= 40+30+30=100:60=1,67 часов
Ване надо ехать ВИ+ИК = 75+30=105:78=1,35 часов
Грише надо ехать ГИ+ИК = 30+30=60:45=1,33 часов
Грише ехать ближе всего(пр двум катетам) ГИ=30 км ИК= 30 км Всего путь Гриши 30+30=60 км. и проедет он их за 60:45=1,33 часов
Гриша доедет первым
Приложение.......................................................