Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
kacheStvoHenkel
0 / 0 / 1
Регистрация: 25.01.2012
Сообщений: 6
1

Места одинаковых

05.02.2012, 16:45. Просмотров 940. Ответов 2
Метки нет (Все метки)

Вводится число N, а затем N чисел - элементов массива. Выведите два числа – номера мест в массиве, на которых стоят одинаковые элементы, или два числа 0 (то есть 0 0), если все элементы различны. Если есть несколько пар чисел, являющихся ответом, выведите пару с минимальными координатами.

Ограничения
1≤N≤100,элементы массива – числа из диапазона Integer.

Формат входных данных
В первой строке файла ввода содержится число N. В следующей строке находятся N чисел.

Формат выходных данных
В файл вывода поместить ответ – два числа, записанных через пробел.


Я уже незнаю что делать ...2 дня ищу идеи..ничего неприходит в голову, более опытные програмеры помогите

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.02.2012, 16:45
Ответы с готовыми решениями:

Нахождение места элемента в массиве
Данная программа находит место числа В в массиве А. Но я бы хотела, чтоб после этого в решении...

как сменить места элементов массива
есть массив первый раз выводим тоесть не могу сделать так, что бы элементы именно вставлялся...

Составить программу ,определяющую по номеру места
В плацкартном вагоне 54 места ,которые разделены еа 10 купе. Составить программу ,определяющую по...

сколько места занимает Record в памяти
Подскажите пожалуйста какую функцию необходимо использовать для подсчёта сколько места занимает...

Файлы. по данным вывести места призеров.
Дан текстовый файл, содержащий протокол лыжных гонок: ФИО, возраст, время старта, время финиша....

2
Puporev
Модератор
55403 / 42538 / 29391
Регистрация: 18.05.2008
Сообщений: 100,621
05.02.2012, 17:55 2
Лучший ответ Сообщение было отмечено kacheStvoHenkel как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var f,g:text;
    a:array[1..100] of integer;
    n,i,j:byte;
    b:boolean;
begin
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);{читаем размер}
for i:=1 to n do{читаем числа}
read(f,a[i]);
close(f);
if n=1 then{если только 1 число}
 begin
  write(g,'0 0');
  close(g); 
 end;
b:=false;{пока пар нет}
i:=1;{начнем с первого}
while (i<n) and not b do{пока не предпоследний или не нашли пару}
 begin
  j:=i+1;{смотрим начиная со следующего}
  while(j<=n)and not b do{пока не последний или не нашли пару}
  if a[j]=a[i] then{если нашли}
   begin
    write(g,a[i],' ',a[j]);{выводим}
    b:=true;{меняем флаг}
   end
  else j:=j+1;{если нет идем дальше}
  if not b then i:=i+1;{если не нашли пару проверяем следующее}
 end;
if not b then write(g,'0 0');{не нашли выводим ноли}
close(g);
end.
1
kacheStvoHenkel
0 / 0 / 1
Регистрация: 25.01.2012
Сообщений: 6
06.02.2012, 19:19  [ТС] 3
Puporev спасибо за задачу и объяснения! очень помагает!)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2012, 19:19

Определить произведение элементов, занимающих 1,6, 11 места в массиве
Дан массив V целых чисел. Надо определить: 1) Произведение элементов, занимающих 1, 6, 11 места в...

Некоторые места в коде непонятны.Внешняя сортировка
Сейчас пишу внешнюю многофазную сортировку. И в помощь себе я нашел книгу Н.Вирта Алгоритмы и...

Определить сколько места занимают в динамической памяти
Определить сколько места занимает в динамической памяти строка, содержащая 30 символов. Заранее...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru