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