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

Ответы на вопрос

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.



Для решения этой задачи можно использовать следующий алгоритм:
1. Ввести массив F(n) вещественных чисел. 2. Проверить, является ли последний элемент массива положительным. 3. Если последний элемент массива положительный, то найти максимальный элемент в массиве и заменить его значением последний элемент массива. 4. Распечатать массив. 5. Иначе вывести сообщение "Массив остался без изменений".
Пример кода на Python:
```python def replace_max_with_last_element(arr): if arr[-1] > 0: max_elem = max(arr) max_index = arr.index(max_elem) arr[max_index] = arr[-1] print("Измененный массив:", arr) else: print("Массив остался без изменений")
# Пример использования функции array = [1, 2, 3, 4, 5] replace_max_with_last_element(array) ```
В этом примере мы определяем функцию replace_max_with_last_element, которая принимает на вход массив arr. Затем мы проверяем, является ли последний элемент массива положительным, и в зависимости от этого либо заменяем максимальный элемент массива его значением последнего элемента, либо выводим сообщение о том, что массив остался без изменений.


Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili