|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.06.2008, 16:01 | #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); |
14.06.2008, 16:21 | #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); и радуешься жизни) |
14.06.2008, 18:05 | #3 |
Пользователь
Регистрация: 25.12.2007
Сообщений: 11
|
мдя... даже для моей светлой головы понятно что как-то inc можно впихнуть в код)) тока вот грамотно не получается))) запуталась в операторных скобках)
|
14.06.2008, 18:34 | #4 |
Форумчанин
Регистрация: 06.06.2008
Сообщений: 105
|
забей на Inc =) А разве, если дословно, мой когда не работает?)
|
14.06.2008, 19:49 | #5 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Всё достаточно понятно и прозразчно.
Код:
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
15.06.2008, 01:34 | #6 |
Пользователь
Регистрация: 25.12.2007
Сообщений: 11
|
=) эврика)))
|