Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.10.2017, 21:48   #1
Argenta
 
Регистрация: 10.10.2017
Сообщений: 3
Лампочка Программа PascalABCNET

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

Код:
program SequenceOfNumbers;

var
    n, j, i, k: integer;
    a: array [1..100] of integer;
  
begin

   Writeln ('Введите количество членов последовательности ');
   Readln(n); 
   for i:=1 to n do begin 
      Writeln ('Введите значение ', i,'-го члена последовательности ');
      Readln (a[i]); 
      end;
   for i:=1 to n-1 do 
   for j:=i+1 to n do 
      if a[i] > a[j] then begin
         k:= a[i]; 
         a[i]:= a[j]; 
         a[j]:= k;
         end;
   for i:=1 to n do
      if a[i]<>a[j] then 
         k:= a[i];
   for i:=1 to n do
   Writeln ('Числа, которые входят в последовательность по одному разу ', k)
   
end.
Подскажите,пожалуйста, что исправить в конце программы

Последний раз редактировалось Alex11223; 11.10.2017 в 21:52.
Argenta вне форума Ответить с цитированием
Старый 11.10.2017, 21:54   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Чтобы что-то исправить надо сначала узнать зачем. Что именно не так, почему вы решили, что надо что-то исправить именно в конце?
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 18.10.2017, 18:13   #3
Argenta
 
Регистрация: 10.10.2017
Сообщений: 3
По умолчанию

Код:
program SequenceOfNumbers;

var
    n, j, i, k, S: integer;
    a: array [1..100] of integer;
  
begin

   Writeln ('Введите количество членов последовательности ');
   Readln(n); 
   for i:=1 to n do begin 
      Writeln ('Введите значение ', i,'-го члена последовательности ');
      Readln (a[i]); 
   end;
   for i:=1 to n-1 do 
      for j:=i+1 to n do 
         if a[i] > a[j] then begin
            k:= a[i]; 
            a[i]:= a[j]; 
            a[j]:= k;
         end;  
   Writeln ('Последовательность');
   for i:=1 to n do
      if a[i]<>a[i+1] then begin
         k := a[i];
         Write (k);
      end;
end.
Эта программа выводит и повторяющееся число последовательности. А вот как сделать, чтобы повторяющееся число не выводилось , я не могу догадаться
Argenta вне форума Ответить с цитированием
Старый 19.10.2017, 18:57   #4
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

Код:
begin
  var n:=ReadInteger('Введите количество членов последовательности: ');
  var a:=ArrRandomInteger(n,0,10);
  a.Println;
  Println('Числа, которые входят в последовательность по одному разу: ');
  a.Distinct.Sorted.Println;
end.
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составить программу в PascalABCNET Ihuman Помощь студентам 1 04.12.2016 11:30
Строковый тип(PascalABCNET) FlayGlam Помощь студентам 1 29.11.2016 17:30
Строковый тип(PascalABCNET) FlayGlam Помощь студентам 0 29.11.2016 17:06
Файлы в PascalABCNET Вадим Вергун Паскаль, Turbo Pascal, PascalABC.NET 10 13.11.2014 22:36
Мышь в PascalABCNET Вадим Вергун Паскаль, Turbo Pascal, PascalABC.NET 19 02.11.2014 21:32