Подсчет одинаковых элементов Опции

[eden]

Подскажите как посчитать одинаковые элементы в массиве.

[Дмитриев Ярослав]

Хотя можно и в форуме, да простит меня MJ =)))

Код

program passss;
var a: array[1..10] of integer;
i,c: byte;
d : integer;
begin
for i:=1 to 10 do {ввод массива}
begin
writeln('Введите число');
readln(a[i]);
end;
writeln ('Введите число для сравнения');
readln(d);
for i:=1 to 10 do {если нулевой элемент, но ничего не делай}
begin
if d=a[i] then inc(c);
end;
writeln ('В массиве найдено',с ,'совпадений !');
end.

Сообщение отредактировано: volvo - 17.12.2004 16:23