Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-60,60] (Delphi)

[trender]

Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-60,60]. Удалить из него все элементы, в которых последняя цифра нечетная.

2. Вставить элемент со значением К после всех нечетных элементов, начинающихся на цифру К.

3. Поменять местами три последних отрицательных элемента с тремя первыми отрицательными элементами, сохраняя порядок их следования.

[ZX Spectrum-128]

Язык программирования какой?

[trender]

Да на delphi нужно написать

[trender]

на делфи нужно написать

[ZX Spectrum-128]

1.

program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, Math
  { you can add units after this };
var
   a : array of integer;
   j,k,temp,i,n : integer;
begin
  readln(n);
  setlength(a,n);
  for i:=0 to length(a)-1 do
    a[i]:=randomrange(-60,60);
  for i:=0 to length(a)-1 do
    write(a[i],' ');
  k:=0;
  i:=0;
  j:=0;
  while i<length(a) do
  begin
    if not odd(a[i] mod 10) then
       begin
         temp:=a[i];
         a[j]:=temp;
         j:=j+1;
       end
    else
      inc(k);
    i:=i+1;
  end;
  n:=n-k;
  setlength(a,n);
  writeln;
  for i:=0 to length(a)-1 do
    write(a[i],' ');

  readln;
end.