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

Дан массив х: 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы