Нужна помощь в Pascal (Одномерные массивы)

[JayDe]

Задание:
1. Удалить первый чётный элемент массива.
2. Вставить число 2 перед первым чётным элементом массива.
3. Поменять местами второй чётный элемент массива и третий чётный элемент массива.

Очень сильно прошу Вас помочь!!!

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j:integer;
    
begin
clrscr;
for i:=1 to n do
  begin
  a[i]:=random(100);
  write(a[i]:3);
  end;
writeln;
for i:=1 to n do
 if a[i] mod 2 = 0 then begin
                         for j:=i to n-1 do
                              a[j]:=a[j+1];
                         for j:=1 to n-1 do
                          write(a[j]:3);
                          break;
                        end;
end.

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n+1] of integer;
    i,j:integer;
    
begin
clrscr;
for i:=1 to n do
  begin
  a[i]:=random(100);
  write(a[i]:3);
  end;
writeln;
for i:=1 to n do
 if a[i] mod 2 = 0 then begin
                         for j:=n+1 downto i+1 do
                              a[j]:=a[j-1];
                         a[i]:=2;
                         for j:=1 to n+1 do
                          write(a[j]:3);
                          break;
                        end;
end.

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,s,t,kol:integer;
    
begin
clrscr;
for i:=1 to n do
  begin
  a[i]:=random(100);
  write(a[i]:3);
  end;
writeln;
s:=0;t:=0;kol:=0;i:=1;
while (s=0)or(t=0)and(i<=n) do
 begin
  if a[i] mod 2 = 0 then  begin
                           inc(kol);
                           if kol=2 then s:=i;
                           if kol=3 then t:=i;
                          end;
 inc(i);
 end;
 kol:=a[s];
 a[s]:=a[t];
 a[t]:=kol;
 for i:=1 to n do
  write(a[i]:3);

end.

[capta1n]

когда же кончатся эти массивы ))

[alex_fcsm]

Сообщение от capta1n

когда же кончатся эти массивы ))

Во втором семестре

[capta1n]

да у меня в университете 2 задачи на массивы были и все!! а потом пошла динамика и объекты, что считаю интересней и круче - такого завала с массивами никогда не видел )) тут наверно в большей части школьники с этими массивами вот хоть бы раз было задание - построить упорядоченное дерево по ключу, или там че-нить на объекты (ООП) или списки, ну на модули можно, но от массивов непроизвольно уже начинается рвотный рефлекс и т.д и т.п - помню мы с Вами решали на динамические списки - так вот тогда я себя почувствовал облегченно

[JayDe]

Спасибо Вам большое!!!

Только у меня вопрос...Тоесть я как понимаю это полностью выполненное моё задание?! Что-то ещё нужно?!

И кстати, я студент а не школьник, а учусь в колледже

[alex_fcsm]

Запускайте, проверяйте, будут вопросы ответим

[JayDe]

А почему поле компиляции, когда я запускаю программу, ничего не происходит?