помогите пожалуйста

Question

помогите пожалуйста

Слава Данил Ученик (174), закрыт 15 лет назад

Дан целочисленный массив размера N, содержащий ровно два одинаковых элемента. Найти номера одинаковых элементов и вывести эти номера в порядке возрастания

Answer 1

var x:array [1..N] of integer;
....
for i:=1 to n-1 do
for j:=i+1 to N do
if x [ i ]=x[ j ] then
writeln (x[ i ],' в позициях ',i ,' и ', j);

Answer 2

_mikityak_ Знаток (291) 15 лет назад

Сегодня осталось 32 ответа. За ответ вы получите 1 балл.

Источник: [ссылка появится после проверки модератором] programmersforum.ru/index.php www.wasm.ru/forum/index.php forum.sources.ru/index.php? xakepy.mybb.ru www.sql.ru/forum/actualforum.aspx