Автор: ilyg 30.10.2007 11:35
const n=50;
var x:array[1..n] of integer; k:integer;
Подсчитать k-число различных элементов в массиве x.
Автор: Zzzz... 30.10.2007 16:52
Цитата(ilyg @ 30.10.2007 10:35)
Подсчитать k-число различных элементов в массиве x.
Здесь имеется в виду элементы, которые встретились только один раз?
Автор: Malice 30.10.2007 17:15
Цитата(ilyg @ 30.10.2007 7:35)
const n=50;
var x:array[1..n] of integer; k:integer;
Подсчитать k-число различных элементов в массиве x.
Где-то так:
k:=n;
for i:=2 to n do
for j:=1 to i-1 do
if x[j]=x[i] then begin dec (k); break; end;