<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadInteger)
.Where(t->(t mod 3=0) and (Abs(t) mod 10=9)).Println
end.
Всё что нужно, это просто найти индекс первого максимального элемента.
А потом уже менять и его с местами index+1 до конца массива.
Лишнее это фотоаппарат так как он не являеться устройством ввода информации ....
Язык СИ:
#include<stdio.h>
#include<math.h>
int main(){
long double x,y;
scanf("%Lf",&x);
if(x<=-10)y=x*x+25-x;
else if(-10<x && x<=10)y=3+fabsl(x);
else y=1/x;
printf("%Lg\n",y);
return 0;
}