Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 12.05.2011
Сообщений: 13
1

Получить все числа которые входят в последовательность по одному разу

13.05.2011, 11:32. Показов 1263. Ответов 1
Метки нет (Все метки)

помогите написать программу

даны целые числа A1..........An. получить все числа которые входят в последовательность по одному разу
0
Лучшие ответы (1)
Заказывайте контрольные, курсовые и дипломы здесь.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.05.2011, 11:32
Ответы с готовыми решениями:

Получить все числа, которые входят в последовательность по одному разу
Пожалуйста , помогите одну единственную задачку решить!!!!! что-то не выполняется...

Дана последовательность символов. Получить те символы, принадлежащие последовательности, которые входят в нее по одному разу
Дана последовательность символов. Получить те символы, принадлежащие последовательности, которые...

Напечатать гласные, которые входят в текст по одному разу и согласные, которые не входят в текст по одному разу
Друзья, помогите решить следующую задачу: Дан произвольный текст. Напечатать в алфавитном...

Получить в порядке возрастания все целые числа из интервала, которые не входят в последовательность
Даны целые числа а1,…, а30. Пусть М – наибольшее, а N – наименьшее из а1,…, а30. Получить в порядке...

1
Путешественник вселенной
189 / 156 / 119
Регистрация: 01.03.2011
Сообщений: 664
13.05.2011, 12:00 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Раз раз orkk orkk как программа? Повторяю, как программа?
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..200] of integer;
i,j,flag:byte;
begin
randomize;
for i:=1 to 200 do
begin
flag:=0;
for j:=1 to 200 do
begin
a[j]:=random(200)+1;
if a[j]=a[j+1]
then begin
flag:=1; break; end;
end;
if flag=0 then
Writeln(' Chislo pod nomerom ',i,' 1 raz ');
Write('a[',i,'] = ',a[i]);
end;
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2011, 12:00

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

Дан массив из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые входят в этот текст по одному разу
Дан массив из строчных латинских букв. Вывести на экран в алфавитном порядке все буквы, которые...

Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.
Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по...

Создать новую последовательность, в которую элементы последовтельности B входят только по одному разу
Дана последовательность чисел или слов B. С помощью процедуры создать новую последовательность, в...

Создать новую последовательность, в которую элементы последовательности В входят только по одному разу
Дана последовательность чисел или слов В. С помощью процедуры создать новую последовательность , в...


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

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

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