Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
EVIL_SYAVKER
0 / 0 / 0
Регистрация: 05.06.2014
Сообщений: 4
1

Вывести в исходном порядке все различные элементы данного набора целых чисел

15.06.2014, 12:41. Просмотров 874. Ответов 5
Метки нет (Все метки)

Дано целое число N и набор из N целых чисел, упорядоченный по возрастанию. Данный набор может содержать одинаковые элементы. Вывести в том же порядке все различные элементы данного набора.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.06.2014, 12:41
Ответы с готовыми решениями:

Вывести в том же порядке все различные элементы данного набора
Дано целое число N и набор из N целых чисел, упорядоченный по возрастанию....

Дано целое число N и набор из N вещественных чисел. Вывести в том же порядке округленные значения всех чисел из данного набора
нужно написать через array Series7. Дано целое число N и набор из N...

Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке целые части всех чисел из данного набора...
Дано целое число N и набор из N положительных вещественных чисел. Вывести в том...

Begin108. Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести сумму всех положительных четных чисел из данного набора. Если тре
Begin108. Дан набор ненулевых целых чисел; признак его завершения — число 0....

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

5
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26101 / 17501 / 6943
Регистрация: 22.10.2011
Сообщений: 30,826
Записей в блоге: 6
15.06.2014, 13:16 2
Лучший ответ Сообщение было отмечено erl27 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
{$reference System.Core.dll}
uses
  System.Linq;
 
const
  n = 10;
 
begin
  var a: array of integer := new integer[n] (1, 1, 1, 2, 2, 3, 5, 5, 8, 9);
  
  foreach i: integer in a.Distinct().ToArray() do write(i:4);
  writeln;
end.
Заполнять массив можешь любым способом, главное, чтобы он был динамическим, потом к нему применяешь Distinct, и получаешь только уникальные элементы, повторы отсекаются...
0
EVIL_SYAVKER
0 / 0 / 0
Регистрация: 05.06.2014
Сообщений: 4
15.06.2014, 17:31  [ТС] 3
а это точно для паскаля? а то у меня не работает прога.. не мог бы в обычном простецком виде её переписать?
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26101 / 17501 / 6943
Регистрация: 22.10.2011
Сообщений: 30,826
Записей в блоге: 6
15.06.2014, 18:33 4
Цитата Сообщение от EVIL_SYAVKER Посмотреть сообщение
а то у меня не работает прога..
Это точно для Паскаля, причем именно для PascalABC.NET, в разделе по которому ты выложил свое задание. Если ты не можешь даже взять и проверить то, что тебе предлагают - то разговаривать с тобой дальше просто не о чем. Лично мне, например, не интересно писать стандартную программу со стандартным циклом ввода данных и тупым циклом для перебора значений...
0
erl27
894 / 742 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
15.06.2014, 19:24 5
Один из способов:
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
var
  A: array[0..100] of integer;
  b: boolean;
  
begin
  write('N = ');
  var N := ReadInteger;
  a[0] := random(10);
  writeln('Формируем последовательность ', N, ' целых возрастающих чисел:');
  for var i := 1 to N do begin
    a[i] += a[i - 1] + random(3);
    write(' ', a[i])
  end;
  writeln;
  writeln('Удаляем повторяющиеся элементы:');
  for var i := 1 to N do begin
    b := true;
    for var j := 1 to i - 1 do
      if (a[i] = a[j]) then begin
        b := false;
        break
      end;
    if b then write(' ', a[i])  
  end;
  writeln
end.
0
EVIL_SYAVKER
0 / 0 / 0
Регистрация: 05.06.2014
Сообщений: 4
15.06.2014, 23:03  [ТС] 6
спасибо большое!
0
15.06.2014, 23:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.06.2014, 23:03

Дано целое число N и набор из N целых чисел. Вывести в том же порядке номера всех нечетных чисел из этого набора
Дано целое число N и набор из N целых чисел. Вывести в том же порядке номера...

Цикл while: Вывести K-e степени чисел из данного набора
Даны целые числа K, N и набор из N вещественных чисел: A1, A2, …, AN. Вывести...

Вывести сумму и произведение чисел из данного набора.
Дано целое число N и набор из N вещественных чисел. Вывести сумму и...


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

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

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