задача по программированию((помогите

ппц если вы умеете только hello world в консоль выводить, это не значит что все остальные такие же нубы и не справятся и не помогут, и если в тексте задачи мало знакомых слов, то она сложная и нерешаемая!
по вопросу:
описываешь функцию, которая перебирает весь массив и сравнивает элементы. на паскале примерно так:
[code]
const n=10;{число элементов}
function elem_count(m:array of byte; var summ:integer):integer;
var j,num:integer;
s:set of byte;{множество нужно чтобы исключать повторяющиеся элементы}
begin
{инициализация переменных}
s:=[];
summ:=0;
num:=0;
for j:=0 to n do begin
if not (m[j] in s) then begin{если числа нет множестве - учитываем его как уникальное}
num:=num+1;
s:=s+[m[j]];
summ:=summ+m[j];
end;
end;
elem_count:=num;{вернем кол-во элементов}
end;

[/code]

ну и с использованием этой функции нетрудно написать всю программу:
[code]
program count;
const n=10;
function elem_count(m:array of byte; var summ:integer):integer;
var j,num:integer;
s:set of byte;
begin
s:=[];
summ:=0;
num:=0;
for j:=0 to n do begin
if not (m[j] in s) then begin
num:=num+1;
s:=s+[m[j]];
summ:=summ+m[j];
end;
end;
elem_count:=num;
end;

var j,c:integer;
mm:array[0..n] of byte;
begin
write('array: ');
for i:=0 to n do begin
mm[j]:=random(256);
write(mm[j],' ');
end;
writeln('count: ',elem_count(mm,c));
writeln('summ: ',c);
readln;
end.
[/code]

Ксения. это очень сложно! тут никто не справится и не поможет (((
попробуй поискать в уже имеющихся ответах - там точно будет то, что тебе нужно

Это нерешаемая задача..

Почему не указываешь язык программирования?? ? Или прямо-таки все-все люди обращают внимание на затисавшуюся метку? Как будто паскаль нынче единственный язык...

Возможно могу помочь, пиши в аську 494541133

яяяяяяяяяяяяяяяяяяя ннннннннннннннннннееееееееееееееееее ззззззззззззззззнннннннннннннннннннннаааааааааааааааааааааааюююююююююююююююююююю!!!!