Массив

@LeoNEED · Регистрация: 17.03.2010

Студворк — интернет-сервис помощи студентам

Дан массив из 20 целых чисел из диапазона (-40;60). Определить, сколько в нём различных элементов (т.е. таких чисел, которые входят в массив один раз)

@Mиxaил · 20.06.2010, 00:39

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var a:array[1..100] of real;
    i,j,n,count,k:byte;
begin
write('n -> ');
readln(n);
for i:=1 to n do
  read(a[i]); {вводи через пробел}
k:=0;
for i:=1 to n-1 do
  begin
    count:=0;
    for j:=i+1 to n do
      if a[i]=a[j] then 
        begin
          inc(count);
          break;
        end;
    if count=0 then inc(k);
  end;
writeln('таких чисел: ',k);
end.

с диапазоном сам разберись

@LeoNEED · 20.06.2010, 00:40 **[ТС]**

дело в том что мне через процедуры надо решить... а я не знаю их.. Там какую-то переменную разрядку(razr обозначем) ещё нужно вводить.. не понимаю для чего...

@Mиxaил · 20.06.2010, 00:49

вот с процедурой:

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
27
type matrix=array[1..100] of integer;
var a:matrix;
    i,n,k:byte;
procedure Search(a:matrix; var k:byte);
var count,i,j:byte;
begin
k:=0;
for i:=1 to n-1 do
  begin
    count:=0;
    for j:=i+1 to n do
      if a[i]=a[j] then 
        begin
          inc(count);
          break;
        end;
    if count=0 then inc(k);
  end;
end;
begin
write('n -> ');
readln(n);
for i:=1 to n do
  read(a[i]);
Search(a,k);
writeln(k);
end.

@LeoNEED · 20.06.2010, 00:52 **[ТС]**

спасибо большое, но мне нужно на уровне 2-го семестра матфака... Не примут задачу решёную тем чем мы ещё не проходили... т.е. можешь сделать на начальном уровне массивов через процедуру.

@Mиxaил · 20.06.2010, 00:55

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

@LeoNEED · 20.06.2010, 00:56 **[ТС]**

inc count randomize break.. такие команды они ещё точно не проходили...

@Mиxaил · 20.06.2010, 01:00

Сообщение от LeoNEED

inc count randomize break

inc - это тоже самое, что и i:=i+1; (инкрис) увеличение на 1
count - это моя переменная, (с англ. "счетчик")
randomize - генерация случайных чисел, но в моем решении я его убрал. Так как тебе нужен [-20;60], то решать нужно через него
break - немедленный выход из цикла(стандартный оператор)

Вы это проходили!!!

@LeoNEED · 20.06.2010, 01:02 **[ТС]**

randomize не было у нас ..

@Mиxaил · 20.06.2010, 01:03

просто вы им не пользовались! он, как-бы, для удобства, чтоб руками не вводить числа!

@LeoNEED · 20.06.2010, 01:03 **[ТС]**

понятно спасиб большое, репу за 2 задачи повысил.

@Mиxaил · 20.06.2010, 01:07

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

@LeoNEED · 21.06.2010, 18:33 **[ТС]**

да да ... я и не занимался ))) думал они там херню проходят, а в итоге эту херню я сам и забыл ) вот чем я щас и занимаюсь )

Добавлено через 22 часа 9 минут
а диапазон можно сразу написать -40 до 60 или как ? я уже забыл как там по правилам... можешь написать сразу диапазон чтобы я понял на примере как можно

Добавлено через 19 часов 10 минут
задача не рабочая..

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@LeoNEED 0 / 0 / 0 Регистрация: 17.03.2010 Сообщений: 15

	Массив 20.06.2010, 00:01. Показов 843. Ответов 12 Метки нет (Все метки) Дан массив из 20 целых чисел из диапазона (-40;60). Определить, сколько в нём различных элементов (т.е. таких чисел, которые входят в массив один раз) 0

@LeoNEED 0 / 0 / 0 Регистрация: 17.03.2010 Сообщений: 15
	20.06.2010, 00:40 [ТС]
	дело в том что мне через процедуры надо решить... а я не знаю их.. Там какую-то переменную разрядку(razr обозначем) ещё нужно вводить.. не понимаю для чего... 0

@LeoNEED 0 / 0 / 0 Регистрация: 17.03.2010 Сообщений: 15
	20.06.2010, 00:52 [ТС]
	спасибо большое, но мне нужно на уровне 2-го семестра матфака... Не примут задачу решёную тем чем мы ещё не проходили... т.е. можешь сделать на начальном уровне массивов через процедуру. 0

@Mиxaил 542 / 447 / 162 Регистрация: 10.12.2009 Сообщений: 1,857
	20.06.2010, 00:55
	я сам на мехмате учусь, тоже 2 семестр, мы это проходили еще осенью! Это самое простое решение, только поиск немного громоздкий.... 1

@LeoNEED 0 / 0 / 0 Регистрация: 17.03.2010 Сообщений: 15
	20.06.2010, 00:56 [ТС]
	inc count randomize break.. такие команды они ещё точно не проходили... 0

@LeoNEED 0 / 0 / 0 Регистрация: 17.03.2010 Сообщений: 15
	20.06.2010, 01:02 [ТС]
	randomize не было у нас .. 0

@Mиxaил 542 / 447 / 162 Регистрация: 10.12.2009 Сообщений: 1,857
	20.06.2010, 01:03
	просто вы им не пользовались! он, как-бы, для удобства, чтоб руками не вводить числа! 0

@LeoNEED 0 / 0 / 0 Регистрация: 17.03.2010 Сообщений: 15
	20.06.2010, 01:03 [ТС]
	понятно спасиб большое, репу за 2 задачи повысил. 0

@Mиxaил 542 / 447 / 162 Регистрация: 10.12.2009 Сообщений: 1,857
	20.06.2010, 01:07
	тут на форуме много полезной информации, в некоторых местах, даже лучше некоторых учебников! так что почаще заглядывай, и поиском пользуйся - здесь много решенных задач! 0

@LeoNEED 0 / 0 / 0 Регистрация: 17.03.2010 Сообщений: 15
	21.06.2010, 18:33 [ТС]
	да да ... я и не занимался ))) думал они там херню проходят, а в итоге эту херню я сам и забыл ) вот чем я щас и занимаюсь ) Добавлено через 22 часа 9 минут а диапазон можно сразу написать -40 до 60 или как ? я уже забыл как там по правилам... можешь написать сразу диапазон чтобы я понял на примере как можно Добавлено через 19 часов 10 минут задача не рабочая.. 0