Задан целочисленный массив, состоящий из n элементов

[maxim1592]

у меня Pascal ABC не знаю какой версии, а исправить это никак нельзя???уж очень срочно нужно на завтра

[Serge_Bliznykov]

(с) Mad_Cat с поправленным case of:

const nmax=10;
var
  a:array[0..nmax] of integer;
  i,imin,imax,n:integer;
begin
  Randomize;
  readln(n);
  for i:=1 to n do
  begin
    a[i]:=random(n+1)-n div 2;
    write(a[i]:4);
  end;
  writeln;
  case abs(n mod 2) of
    0:
      begin
        imax:=1;imin:=1;
        for i:=2 to n do
          begin
            if a[i]>a[imax] then imax:=i;
            if a[i]<a[imin] then imin:=i;
          end;
        a[1]:=a[1]+a[imax];
        a[imax]:= a[1]-a[imax];
        a[1]:= a[1]-a[imax];
        a[n]:=a[n]+a[imin];
        a[imin]:= a[n]-a[imin];
        a[n]:= a[n]-a[imin];
      end;
   1:
    begin
      i:=1;
      while i<=n do
        begin
          if a[i] mod 2 = 0 then
            begin
              for imin:=i to n-1 do
                a[imin]:=a[imin+1];
              n:=n-1;
        end
          else inc(i);
        end;
    end;
 end;
      for i:=1 to n do
        write(a[i]:4);
 writeln;
end.

правда, так и не понял, чем case на два вариант лучше, чем банальный if then ... else ...

[maxim1592]

благодарствую, очень сильно выручили

[Mad_Cat]

правда, так и не понял, чем case на два вариант лучше, чем банальный if then ... else ...

вот пусть ТС об этом завтра с преподом и поговорит