Var
a:array[1..10,1..10] of integer;
i, j, j1, max, s: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
readln(a[i,j]);
max := a[1,1];
for i:=1 to 10 do
for j:=1 to 10 do
if a[i,j]>max then
begin
max := a[i,j];
j1:=j;
end;
for i:=1 to 10 do
begin
s:=a[i, 1];
a[i, 1] := a[i, j1];
a[i, j1] := s;
end;
<span>end.</span>
Нужно натиском все цифры числа а затем сравнивать в цикле 1 с последним затем второе с предпоследний и так далее...
<span>Теоретически, программы можно установить на компьютер и без ведома операционной системы, например, это относится к приложениям MS-DOS. В этом случае они не будут представлены в меню Программы, но ничто не мешает создать им ярлыки и ввести их в меню вручную методом перетаскивания</span>