Показать сообщение отдельно

  #1  
Старый 17.03.2010, 22:50
MaTpOc
Познавший АНТИЧАТ
Регистрация: 05.05.2008
Сообщений: 1,078
Провел на форуме:
10311449

Репутация: 1357


По умолчанию

Цитата:
Сообщение от Soherox  
а да емеае, воотка

Код:
const
  n = 5;
var
  a: array [1..n] of longint;
  i, imax, imin, max, min: longint;
begin
  min:=21474836;
  max:=-min;
  for i:=1 to n do
    begin
      read(a[i]);
      if a[i] > max then
        begin
          imax:=i;
          max:=a[i];
        end;
      if a[i] < min then
        begin
          imin:=i;
          min:=a[i];
        end;
    end;
   if imin = imax then write('0')
  else write(abs(imin - imax) - 1);
  readln;
end.
если и сейчас скажешь что не работает, прибью
во так супер)
спасибо, всем кто помогал + поставлю)))

только что такое longint и почему min:=21474836; ???
 
Ответить с цитированием