Возможен вариант...
var
x: integer;
y: array [-10..10] of real;
begin for x:=-10 to 10 do y[x]:=x*x+4; // вот и всё… для заполнения массива
for x:=-10 to 10 do writeln ( x:5,y[x]:8:3); // для отображения на экране
end;
как то так…
Добрый день. Меня заинтересовал ваш ответ "Возможен вариант...
var
x: integer;
y: array [-10..10] of real;
begin
for x:=-10 to 10 do
..." на вопрос http://www.liveexpert.org/topic/view/2305122-zapolnit-massiv-y-array-y-x-2-4-v-diapazone-10-10. Можно с вами обсудить этот ответ?