Ввести массив F(n) вещественных
чисел. Если последний элемент массива положительный, то найти max среди
элементов массива и заменить его значений последний элемент массива. Массив
распечатать. Иначе – дать сообщение «Массив остался без изменений»

1
Сейчас нету времени решать,но если не срочно то завтра решу)

Ответы и объяснения

2013-11-08T01:58:55+04:00
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.