Задать вопрос
19 декабря, 20:24

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

Входные данные

Сначала задано число N - количество элементов в массиве (1N100). Далее через пробел записаны N чисел - элементы массива. Массив состоит из целых чисел.

Выходные данные

Необходимо вывести единственное число - количество различных чисел в массиве.

Примеры

Входные данные

5

1 1 1 1 1

Выходные данные

1

+2
Ответы (1)
  1. 20 декабря, 00:14
    0
    Program X;

    var

    mas: array[1 ... 1000000] of longint;

    N, i, count:longint;

    begin

    count:=1;

    readln (N) ;

    for i:=1 to N do

    read (mas[i]) ;

    if N>1 then

    begin

    for i:=2 to N do

    if mas[i]mas[i-1] then inc (count) ;

    writeln (count)

    end

    else

    writeln (1)

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив, состоящий из целых чисел. Известно, что числа упорядочены по неубыванию (то есть каждый следующий элемент не меньше ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы