Дан массив, состоящий из целых чисел. известно, - вопрос №3673455 от vladyulin 26.05.2022 01:46

Question

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

vladyulin · Answer

Program X;varmas: array[1..1000000] of longint;N,i,count:longint;begincount:=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....