Задание:
Ввести массив F (n) вещественныхчисел. Если последний элемент массива положительный, то найти max среди элементов массива и заменить его значений последний элемент массива. Массив распечатать. Иначе – дать сообщение «Массив остался без изменений»
Решение:
Program Zadacha; Const n=5; Var a: Array[1… n] Of Real; i, j: Integer; BeginWriteLn ('Введите ', n, ' чисел через пробел'); For i: =1 To n DoRead (a[i]); If a[n] >=0 ThenBeginj: =1; For i: =1 To n DoIf a[i] > a[j] Thenj: =i; a[n]: =a[j]; For i: =1 To n DoWrite (a[i], '); EndElseWriteLn ('Массив остался без изменений'); ReadLn; End.
Знаете другой ответ?