Программа на паскале
Заполнить линейный массив по формуле c[i]=16*x-i/9-7

//PascalABC.NET//Версия 3.3, сборка 1611 (06.01.2018)begin  var x:=ReadInteger('x=');  var c:=ArrGen(ReadInteger('Введите размер массива->'), i->16*x-(i+1)/9-7); c.Println;  end.Пример: x= 3Введите размер массива-> 540.8888888888889 40.7777777777778 40.6666666666667 40.5555555555556 40.4444444444444