Дан массив, состоящий из целых чисел. Знаменито, что числа упорядочены по

Question

Дан массив, состоящий из целых чисел. Знаменито, что числа упорядочены по

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

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

Нужно вывести единственное число - количество разных чисел в массиве.
Образцы
Входные данные
5
1 1 1 1 1
Выходные данные
1

Задать свой вопрос

Varvara Landehovskaja
Информатика
2019-08-01 13:36:39
2
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

как записать условие и решение задачки помогите!!!! Разложили поровну 20 цветов

Воспитаннику для подготовки к олимпиаде по арифметике необходимо решить 150 задач.

Саша играл в волейбол 20мин утром и ещё 25 мин вечерком

ВЫЧИСЛИТЕ, пожалуйста

Винесть за дужки спльний множник.0.3ab+1.3ac-a=?9m - 6n+12k -15

Какой НОЗ для чисел: 11, 5, 4?

Расстояние меж брянском и костромой равно 750 км из брянска в

Вычислите:а) 232^2-231^2б) 148^2-2 148 48 +

не пишется отдельно а) (не)пикантный ответ б) (не)разлучные друзья в) совсем

Зайцы какой суффикс в слове

Егор Аблеев · Answer 1 · 2019-08-01 13:42:31+3:00

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 Ngt;1 then
begin
for i:=2 to N do
if mas[i]lt;gt;mas[i-1] then inc(count);
writeln(count)
end
else
writeln(1)
end.

О проекте

Дан массив, состоящий из целых чисел. Знаменито, что числа упорядочены по

Добро пожаловать!