Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ задача на сравнение

Автор: 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;