Ввести массив F (n) вещественных

чисел. Если последний элемент массива положительный, то найти max среди

элементов массива и заменить его значений последний элемент массива. Массив

распечатать. Иначе - дать сообщение "Массив остался без изменений"

Program Zadacha;

Const n = 5;

Var a: Array[1 ... n] Of Real;

i, j: Integer;

Begin

WriteLn ('Введите ', n, ' чисел через пробел') ;

For i : = 1 To n DoRead (a[i]) ;

If a[n] > = 0 ThenBeginj : = 1;

For i : = 1 To n Do

If a[i] > a[j] Then

j : = i; a[n] : = a[j];

For i : = 1 To n Do

Write (a[i], ' ') ;

End

Else

WriteLn ('Массив остался без изменений') ;

ReadLn;

End.