элементов и минимальный и максимальный среди них.
Помогите решить задачу, пожалуйста.
 Задача с массивом..., Определить эл-ты делящиеся на 4... |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| ghost |
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 23 Пол: Мужской Репутация:  0   |
В массиве B(20) определить элементы, делящиеся на 4 без остатка, и сформировать из них новый массив C, подсчитав количество таких
элементов и минимальный и максимальный среди них. Помогите решить задачу, пожалуйста. |
   |
 
|
  |
Ответов
| ghost |
Сообщение
#2
|
|
Новичок Группа: Пользователи Сообщений: 23 Пол: Мужской Репутация: 0 |
Не работает "защита от дурака"
 При вводе, например, числа 4 - пишет, что число не в диапозоне (Number not in range -32768 .. 32767. Try once more!), хотя оно в диапозоне. А при вводе буквы, прога автоматически останавливается как и раньше. |
|
|
|
Сообщений в этой теме
ghost Задача с массивом... 28.10.2004 19:04
Atos :blink: У-у, какая сложная и непонятная задача… 28.10.2004 19:31 Atos Ладно, шутю...
type TElem=byte;
Ar… 28.10.2004 19:33 Лита
Uses crt;
const n=20;
Var b,c:array [1..… 28.10.2004 19:48 Лита
а если в массиве нет отрицательных элементов? а в… 28.10.2004 19:52 volvo Лита
Тогда так:
min:=maxint;
max:=-maxin… 28.10.2004 19:54 Лита
ну можно и так... <_< так даже попроще... … 28.10.2004 20:25 Atos :huh: Согласен, недосмотрел... 28.10.2004 22:00 ghost Спасибо всем, что помогли=)
Добавлено (2.11.04 14… 30.10.2004 19:48 Гость_Лита
:huh: ну как все обыкновенные блок-схемы... :D
… 2.11.2004 19:16 APAL
Ничего смешного. У нас есть возможность вставки р… 2.11.2004 19:27 ghost Или можно на мыло мне кинуть. 3.11.2004 0:27 Лита
хе... признаю свою оплошность, не посмотрела, что… 3.11.2004 5:56 Лита
Вот... щас попробую прикрепить блок-схему...
[b]т… 3.11.2004 6:31 ghost Немного пределанная прога
Uses crt;
const n=20;… 12.11.2004 16:39 APAL
В блок-схеме замени b[i]:=random(40) на Readln(b[… 12.11.2004 16:44 ghost Ну а в самой проге что надо изменить?
И ещё, в пе… 12.11.2004 16:48 APAL То что надо изменить я уже обозначил. 12.11.2004 17:40 Лита
В самой программе меняешь тоже самое:
b[i]:=rando… 12.11.2004 17:53 ghost После замены в проге, можно вводить самому массив … 13.11.2004 16:39 Лита Ну, во-первых там надо было убрать строку write(b:… 14.11.2004 9:41 ghost Большое спасибо, но у меня появилась ещё пара вопр… 24.11.2004 21:27 Лита
Описание идентификаторов я уже писала:
Uses crt;… 24.11.2004 22:06 volvo Лита
А если без Goto?
var ToDo: Boolean;
...
Repe… 24.11.2004 22:16 Лита
Можно и без GoTo... ;) 24.11.2004 22:22 ghost Под описанием я имел в виду, для чего он(идентифик… 24.11.2004 22:32 volvo ghost
Во первых, в переменную типа Integer нельзя… 24.11.2004 23:01 ghost Ничего не могу понять, куда чего :blink:
Не мог … 24.11.2004 23:45 volvo ghost
Смотри пост выше... 24.11.2004 23:57 GoodWind
по моему так:
if not ((next > -32768) and (nex… 25.11.2004 0:12 volvo GoodWind
Прав 100%. Я просто не исправил. Сейчас … 25.11.2004 0:31 ghost Спасибо, помогло :rolleyes:
Но теперь в массив А … 25.11.2004 0:47 volvo Не вводится больше 20... вводится ровно 20, исключ… 25.11.2004 0:48 ghost В том сообщении, где вы исправляли программу, на о… 25.11.2004 0:59 volvo ghost
Ничего подобного - я еще раз перепроверил п… 25.11.2004 1:09 ghost Хихи, странно, перед тем как написать предыдущее с… 25.11.2004 1:17 ghost Помогите пожалуйста
Совсем забыл про блок схему. В… 30.11.2004 22:20 volvo ghost
А для чего в программе пишется:
const n=20;… 13.12.2004 17:38 Лита volvo
ага, вот только еще удостоверится, что масс… 13.12.2004 20:47 volvo Лита
Я по-другому не пишу... (и Вам не советую) … 13.12.2004 21:13 ghost
Нет, я имел в виду, чтобы прога спрашивала у юзер… 14.12.2004 1:57 volvo ghost
Тогда измени самое начало программы вот так… 14.12.2004 2:44 mithquessir Есть как минимум два способа, чтобы
1. Меняешь:
… 14.12.2004 2:46 volvo mithquessir
:nono: Неверно... Не нужно вводить ко… 14.12.2004 2:49 mithquessir Упс. :blink:
Опечатка
Исправил 14.12.2004 2:59 ghost Big thx :) 14.12.2004 18:31
ghost Спасите меня с блок схемой плз, никак не получаетс… 22.12.2004 23:56 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 6.09.2025 18:07 |
Связь с администрацией: bu_gen в домене octagram.name