Дан массив a из n элементов. необходимо удалить элементы начиная с k-го и заканчивая элементом с индексом m. нумерация элементов массива начинается с 0. формат входных данных с клавиатуры вводится натуральное число n (n≤10000) — размер массива. во второй строке вводятся n элементов массива через пробел. все элементы целые и не превосходят по модулю 10000. в третьей строке вводятся через пробел k и m (0 формат выходных данных необxодимо вывести измененный массив. примеры ввод 10 1 2 3 4 5 0 6 7 8 9 2 5 вывод 1 2 6 7 8 9

var

i, n: integer;

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

b: array [1..1000] of integer;

 

begin

write('введите размер массива (макс. 1000): ');

readln(n);

writeln();

for i : = 1 to n do

begin

writeln('введите эл. массива a[', i, ']');

readln(a[i]);

if a[i] mod 2 = 0 then b[i] : = a[i]

end;

writeln();

writeln('эл. массива a');

for i : = 1 to n do

write(a[i], ' ');

writeln();

writeln();

writeln('эл. массива b (чётные)');

for i : = 1 to n do

if (b[i] mod 2 = 0) and (b[i] < > 0) then write(b[i], ' ')

end.

Var       n, k: integer; begin       readln(n, k);       {решение без циклов и условных операторов}       writeln('решение учеников = ', (n - k mod n) mod n);             {проверка}                    while k > n do               k : = k - n;                     if k > 0 then               n : = n - k       else               n : = 0;       writeln('проверка учеников = ', n); end.