сформулировать точное условие задачи:
program ex_4;
var i, n: byte; k: integer; a: array[1..120] of integer;
begin . '
randomize;
write('сколько элементов в массиве? '); readln(n);
write('введите заданное число k: '); readln(k);
for i := 1 to n do
begin a[i] := -100 + random(201); write(a[i] : 6) end;
writeln;
for i := n downto 1 do
begin a[2 * i]:= k; a[2 * i - 1]:= a[i] end;
writeln('ответ:');
for i:= 1 to 2 * n do write(a[i]:6);
writeln
end.​

veronika56454    1   19.04.2020 17:22    3