ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Задачи. Turbo Pascal
   
 
Страница 2 из 2 < 1 2
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 15.05.2009, 21:29
Richard
Познающий
Регистрация: 02.12.2008
Сообщений: 90
Провел на форуме:
376171

Репутация: 12
Отправить сообщение для Richard с помощью ICQ
По умолчанию
спасибо
 

  #12  
Старый 18.05.2009, 20:47
Richard
Познающий
Регистрация: 02.12.2008
Сообщений: 90
Провел на форуме:
376171

Репутация: 12
Отправить сообщение для Richard с помощью ICQ
По умолчанию
Ёщё задачка:

Дан одномерный целочисленный массив. Составить программу определения индекса(-ов) минимального элемента массива. Именно номера(индекса) ячейки в которой расположен минимальный член массива!
 

  #13  
Старый 18.05.2009, 21:08
Fata1ex
Постоянный
Регистрация: 12.12.2006
Сообщений: 906
Провел на форуме:
4205500

Репутация: 930


По умолчанию
Код:
min:=a[1];
for i:=2 to N do 
 if a[i]<min then
	min:=a[i]

for i:=1 to N do
 if a[i]=min then 
	writeln(i);
 

  #14  
Старый 18.05.2009, 21:13
Richard
Познающий
Регистрация: 02.12.2008
Сообщений: 90
Провел на форуме:
376171

Репутация: 12
Отправить сообщение для Richard с помощью ICQ
По умолчанию
огромное спаибо!
 
 
Страница 2 из 2 < 1 2



« Предыдущая тема | Следующая тема »


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


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




ANTICHAT.XYZ