IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задача на массивы
Tatjanka
сообщение 1.12.2004 14:08
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 28
Пол: Женский

Репутация: -  0  +


Помогите пожалуйста решить задачи.
Вот одна из них:

Дан числовой массив А(35). Найдите, в массиве есть пара одинаковых чисел. Сколько одинаковых чисел, если они есть?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
mithquessir
сообщение 1.12.2004 15:55
Сообщение #2


Гость






Ну, наверное так:

Код

var
 num,i,j:integer;
 a:array[1..35] of integer;
begin
 randomize;
 for i := 1 to 35 do
 a[i] := random(100);
 for i := 1 to 35 do
 for j := i + 1 to 35 do
 if a[i] = a[j] then
 Inc(num);
 for i := 1 to 35 do
 begin
   Write(a[i]:3);
 end;
WriteLn;
 WriteLn(num);
end.


Сообщение отредактировано: volvo - 1.12.2004 15:58
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Tatjanka   Задача на массивы   1.12.2004 14:08
volvo   Tatjanka А в массиве только одно число встречаетс...   1.12.2004 14:28
Tatjanka   Ой, я задание неправильгно с эстонского перевела. ...   1.12.2004 14:33
Tatjanka   volvo помоги пожалуйста с решением. если конечно т...   1.12.2004 14:51
volvo   Что-то ты меня совсем запутала. Приведи пример ма...   1.12.2004 15:01
Tatjanka   volvo Например 1 2 4 5 1 здесь одна пара - 1,1 2...   1.12.2004 15:09
mithquessir   Ну, наверное так: var  num,i,j:integer...   1.12.2004 15:55
volvo   mithquessir Давайте не пользоваться красным цвето...   1.12.2004 15:57
Tatjanka   volvo Значит етот код неправильно написан?   1.12.2004 16:34
volvo   Tatjanka Вот, что мне пришло в голову: const ...   1.12.2004 16:35
Tatjanka   volvo Я пишу этот код, а у меня выдает 1, а это н...   1.12.2004 16:59
volvo   Tatjanka Не может быть. Я только что еще раз прог...   1.12.2004 17:08
Tatjanka   volvo Спасибо огромноебвсе замечательно работает....   1.12.2004 17:26
volvo   Tatjanka Только в новую тему, если оно не связано...   1.12.2004 17:28
mithquessir   Извиняюсь за неправильный код.:unsure: А можно ка...   1.12.2004 17:30
volvo   mithquessir Может и можно... Надо будет подумать....   1.12.2004 17:38
ShadowWatcher   Некрасивое решение, но должнл пахать: Type ...   1.12.2004 18:00
volvo   ShadowWatcher Неправильный результат (проверял пр...   1.12.2004 18:19
ShadowWatcher   Согласен. Type TNum=Record   Number:In...   1.12.2004 18:45


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 3:19
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"