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

Question

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

Answer 1

65

denisni

15 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: