Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Pascald
0 / 0 / 0
Регистрация: 22.01.2014
Сообщений: 11
#1

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

25.04.2014, 17:38. Просмотров 394. Ответов 1
Метки нет (Все метки)

Дан массив. Получить все числа, которые входят в последовательность по 1-му разу.
Спасибо заранее!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2014, 17:38
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дан массив. Получить все числа, которые входят в последовательность по 1-му разу (Pascal):

Получить все числа, которые входят в последовательность по одному разу
Даны целые числа а1,а2...а15 ( могут быть повторяющиеся члены). Получить все...

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

получить все элементы последовательности B которые не входят в последовательность A
Привет помогите пожалуйста написать программу по другому, Даны натуральные...

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

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

Получите в порядке возрастания все целые числа из интервала (m,М),которые не входят в последовательность
Такая вот задачка :) Пусть даны целые числа a1,a2,…,an.Пусть...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,652
Записей в блоге: 1
26.04.2014, 06:51 #2
Лучший ответ Сообщение было отмечено Pascald как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Const nmax=100;
Var A:array[1..nmax] of integer;
    i,j,n,k:byte;
Begin
    write('Введите 1<=n<=',nmax,': ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(11);
      write(A[i]:3);
    End;
    writeln;
    writeln('Числа,которые входят по 1 разу');
    For i:=1 to n do
    Begin
      k:=0;
      For j:=1 to n do
       if A[i]=A[j] then inc(k);
      if k=1 then write(A[i]:3);
    End;
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2014, 06:51
Привет! Вот еще темы с решениями:

Получить в массиве Z все елементы массива y которые не входят в массив x
Даны два массива x(10),y(15).Получить в массиве Z все елементы массива y...

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

Получить третий массив, в который входят все элементы первого массива и те элементы второго, которые не встречались в первом
Задача по теме &quot;массив&quot;. &quot;Объединение массивов&quot;. Напишите программу, которая...

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


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

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

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