ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
   
 
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 17.03.2010, 22:18
Soherox
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184

Репутация: 47
По умолчанию

Цитата:
Цитата:
Сообщение от Soherox
Так код уже выкладывался страница 578, #5772


не работает (
ошибка там
Приношу извинения, писал на Delphi, поэтому ошибка, все исправил для Pascal

Код:
const
  n = 30;
var
  a: array [1..n] of integer;
  i, imax, imin, max, min: longint;
begin
  min:=maxlongint;
  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.
 
Ответить с цитированием
 



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/WPAN/WLAN 2564 06.04.2026 23:31
[ *NIX ] Задай вопрос - получи ответ. Xszz *nix 1547 15.06.2010 15:41
[jQuery] - Задай вопрос, получи ответ Isis PHP, PERL, MySQL, JavaScript 62 25.12.2009 03:25
ЕсТь ВоПрос Guma Чаты 4 26.10.2005 21:48



Здесь присутствуют: 2 (пользователей: 0 , гостей: 2)
 


Быстрый переход




ANTICHAT.XYZ