![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 25.12.2007
Сообщений: 11
|
![]()
Ну вобщем как всегда всем нубам нужен хороший пиночек под попу=))))
![]() 1 задачка))) В массиве случайных целых чисел определить количество максимальных и минимальных элементов . запуталась куда вставить тот самый счетчик))) этих самых любимых)))) минимальных и максимальных чисел)) код задачи : {ну вступление пропустим....} min:=a[1]; max:=a[1]; for i:=1 to n do begin if a[i]<=min then begin min:=a[i]; imin:=i; end; if a[i] >=max then begin max:=a[i]; imax:=i; end; end; ___ ну и выводы всякие))))) imax, imin =>порядковый номер.. Подскажите как мне ПОСЧИТАТЬ количество максимальных и минимальных элементов)))) Точнее как грамотнее использовать вот эти строки)) => kmin:=0; for i:=1 to n do if a[i]=a[i+1] then inc(kmin); writeln(kmin); |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 06.06.2008
Сообщений: 105
|
![]()
Можно по-тупому - нашла в своей проге max и min и потом так
kmin := 0; kmax := 0; for i := 1 to n do begin if a[i] = max then kmax := kmax + 1; if a[i] = min then kmin := kmin + 1; end; write(kmax, ' ', kmin); и радуешься жизни) |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 25.12.2007
Сообщений: 11
|
![]()
мдя... даже для моей светлой головы понятно что как-то inc можно впихнуть в код)) тока вот грамотно не получается))) запуталась в операторных скобках)
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 06.06.2008
Сообщений: 105
|
![]()
забей на Inc =) А разве, если дословно, мой когда не работает?)
|
![]() |
![]() |
![]() |
#5 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
![]()
Всё достаточно понятно и прозразчно.
Код:
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 25.12.2007
Сообщений: 11
|
![]()
=) эврика)))
|
![]() |
![]() |