{* Задача 506 *}

Unit ZADACH506;
Interface
Implementation
Begin
 writeln('Дано натуральное число m, действительные числа a1,...,a30 (числа a1,...,a30 попарно различны, m<=30). В последовательности a1,...,a30 поменять местами наибольший член и член с номером m.');
End.

Program zadach506;

Uses zadach506.pas; {* Эту строку можно удалить *}
{Дано натуральное число m, действительные числа a1,..., a30 (числа    a1,..., a30 попарно различны, m30 Then
m := 30;
If m1)And(a[i - 1] = a[i]) Then
  Repeat {Должны быть попарно различны}
    write('введите элемент a[', i, ']= ');
readln(a[i])
Until (a[i - 1]a[i]);
If a[i] > a[IndMax] Then
  IndMax := i
End; {Меняем местами элементы}
temp := a[m];
a[m] := a[IndMax];
a[IndMax] := temp; {Распечатываем новый массив}
writeln('Получили:');
For i := 1 To 30 Do {* Цикл для i => [1 .. 30] *}
  writeln('a[', i, ']=', a[i] : 0:3)
End.

End..