![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
![]()
Сообщение
#1
|
|
![]() Супер постер ![]() ![]() ![]() ![]() ![]() Группа: Posters Сообщений: 756 Регистрация: 23.9.2006 Из: Саратов Пользователь №: 2,028 ![]() |
помогите решить задачку!
Определить минимальный элемент массива и его порядковый номер. -------------------- спасем китов, maza f*cka! %)
|
|
|
![]() |
Гость_trust_* |
![]()
Сообщение
#2
|
Guests ![]() |
Код Program Pashka; Const N=5; Var X,Min,NMin,I:Integer; Begin Writeln('Input Array'); Min:=MaxInt; for I:=1 to N Do Begin Read(X); if X<Min then Begin Min:=X; NMin:=I; End; End; Writeln('ArrayMin is number ',NMin,':',Min); Readln; Readln; End. а зачем массив заводить вообще? ![]() Сообщение отредактировал trust - Oct 29 2006, 18:29 |
|
|
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 17th June 2025 - 02:16 |