Question

ЗАДАЧА НА ПАСКАЛЕ

1. Заполните массив целыми числами, так чтобы средний элемент массива был равен X, слева от него элементы стоят по возрастанию, а справа – по убыванию (ввести X с клавиатуры). Соседние элементы отличаются на единицу. Например: 1 2 3 2 1


напишите код программы на паскале, пожалуйста

Answer 1

Ответ:

Program zadasha;

var

a: array[1..255] of integer;

i,n: byte;

k:integer;

begin

write('Введите размер массива n (n<=255): ');

readln(n);

writeln('Введите число от -32640 до 32639');

readln(k);

a[n div 2+1]:=k;

for i:=n div 2 downto 1 do

a[i]:=a[i+1]-1;

for i:= n div +2 to n do

a[i]:=a[i-1]+1;

for i:=1 to n do

write(a[i]);

end.

Объяснение: думаю вопросов нету, я конечно не сильно шарю за паскал, но вроде бы смысл таков