Question

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

Answer 1

//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
Введите размер массива-> 5
40.8888888888889 40.7777777777778 40.6666666666667 40.5555555555556 40.4444444444444