Дан массив A из 100 элементов. Если сумма элементов чѐтная, заменить все положительные чѐтные элементы – нулями, иначе – переставить местами первый и последний элемент.

Program bkmyehf;const n=100;var a:array[1..n] of integer;temp,sum, i,j: integer;  begin  sum:=0;  randomize;  writeln('*** alphaues is thinking... ***');  for i:=1 to n do     begin        a[i]:=random(100)+1;      sum:=sum+a[i];    end;  if sum mod 2 = 0 then    begin       writeln('Сумма элементов чётная');      for i:=2 to n do         begin            if (a[i]>0) AND (i mod 2 = 0) then a[i]:=0;        end;    end    else    begin      writeln('Сумма элементов нечётная');      temp:=a[1];      a[1]:=a[i];      a[i]:=a[1];    end;  for i:=0 to 9 do    begin      for j:=1 to 10 do        write(a[i*10+j]:4);      writeln();    end;end.