Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/25: Рейтинг темы: голосов - 25, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 30.04.2014
Сообщений: 8
1

Найти номера одинаковых элементов массива и вывести эти номера в порядке возрастания

26.06.2014, 20:40. Показов 4932. Ответов 1
Метки нет (Все метки)

Дан целочисленный массив размера N, содержащий ровно два одинаковых элемента. Найти номера одинаковых элементов и вывести эти номера в порядке возрастания.
срочно! заранее спасибо!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.06.2014, 20:40
Ответы с готовыми решениями:

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

Вывести порядковые номера наибольших чисел последовательности в порядке возрастания их номеров
Ввести последовательность натуральных чисел, в конце которой 0. Не сохраняя всей последовательности...

Вывести номера элементов массива в том порядке, в котором элементы образуют возрастающую последовательность
Дан массив A размера N. Не изменяя данный массив, вывести номера его элементов в том порядке, в...

Определить номера строк матрицы в порядке возрастания элементов каждой строки
помогите написать программу в паскале задание: определить номера строк матрицы D в порядке...

1
903 / 751 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
26.06.2014, 22:29 2
Лучший ответ Сообщение было отмечено юрчик как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  A: array[1..20] of integer;
  N, i, j: byte;
  
begin
  write('N = ');
  readln(N);
  for i := 1 to N do begin
    write('a[', i, '] = ');
    read(a[i])
  end;
  writeln;
  for i := 2 to N do
    for j := 1 to i - 1 do
      if a[i] = a[j] then begin
        writeln('Номера: ', j, ' и ', i);
        exit
      end;
  writeln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.06.2014, 22:29

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

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

Даны два массива. Найти число одинаковых элементов равных 34 и указать их порядковые номера. Если таковых не имеется – сообщить об этом
Даны два массива. Найти число одинаковых элементов равных 34 и указать их порядковые номера. Если...

Найти и вывести номера двух элементов массива, наименее отличающихся друг от друга
дан целочисленный массив из 30 элементов. элементы массива могут принимать произвольные целые...

Найти и вывести все номера четных элементов массива, стоящих на нечетных местах
Найти и вывести все номера четных элементов массива, стоящих на нечетных местах.


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

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

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