Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Дан массив х: array[1..n] of integer, причем x[1]<=x[2]<=...<=x[n]. Найти количество различных чисел среди элементов массива.

Ответ оставил Гость

Const n=10; 
var a:array[1..n] of integer;
i,k:integer; 
begin
writeln(Исходный массив:);
a[1]:=random(10);
write(a[1],  );
for i:=2 to n do
 begin
 a[i]:=a[i-1]+random(10);
 write(a[i],  );
 end;
writeln;
k:=1;
for i:=2 to n do if a[i-1]<>a[i] then k:=k+1;
writeln(k = ,k);
end.

Пример:
Исходный массив:
9  18  19  19  28  32  38  41  41  47  
k = 8