8. Дан целочисленный линейный массив. Вставить в него число 100 после m-го элемента, если этот элемент четный. В противном случае – перед ним.

Попробуйте тестовые значение 1 2 4 3 5 и также элемент номер 3

у меня доработать надо ..токо что опять перезапустила и увидела ..простите ...

выводит две 100 подряд ...сейчас постараюсь изменить..

const n=6;   num=100; var arr:array[1..n] of integer;   m,i,j:integer; begin      Writeln('zapolnite massiv: ');    for i:=1 to n-1 do Read(arr[i]);    Write('pozitia v massive: '); Read(m);   if (arr[m] mod 2)=0 then begin     for i:=n-1 downto m+1 do arr[i+1]:=arr[i];     arr[m+1]:=num end   else begin for i:=n-1 downto m do arr[i+1]:=arr[i]; arr[m]:=num   end;   Write(' noviy massiw=: ');    for i:=1 to n do Write(arr[i]:5);    writeln;  readln; end.