Опубликовано 5 лет назад по предмету Информатика от damikbaltabaevJos

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

Ответ

Ответ дан Аккаунт удален

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,20);
a.Println;
Writeln('Уникальных чисел - ',a.Distinct.Count)
end.

Тестовое решение
n= 20
18 5 13 19 8 3 4 15 2 18 6 5 18 1 3 17 18 16 6 5
Уникальных чисел - 13
1. Ответ
  
  Ответ дан damikbaltabaevJos
  
  Можете решить на версии 2.2 сборки 765?
2. Ответ
  
  Ответ дан Аккаунт удален
  
  Могу, но не стану. Во-первых, это громоздко, а во-вторых, надо было сразу версию указывать в вопросе. Я не стал бы возиться с второй версией, её авторы перестали поддерживать с 2007 года, т.е. уже 9 лет назад.
3. Ответ
  
  Ответ дан Аккаунт удален
  
  Работа со второй версией - это демонстрация того, как НЕ НАДО УЧИТЬ ПРОГРАММИРОВАНИЮ.

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают