ХЕЛП НАПИШИТЕ ТОЧНУЮ ФОРМУЛИРОВКУ ЗАДАЧИ
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.

dkuchanov1352    1   19.04.2020 17:22    1