Подпрограммы

[Антонолол]

Доброго времени суток. помогите решить на Pascal
Составить подпрограмму, которая выясняет, имеется ли в массиве повторяющиеся элемены(если да, то к=1, если нет, то к=0). С ее помощью обработать 2 массива.

[Stilet]

Наработки имеются?

[alexander13]

Можно как-нибудь так:

const 
	n = 5;

var
	a    : set of byte;
	x    : array [1..n] of byte;
	i, k : byte;
	
BEGIN
	randomize;
	
	k := 0;
	
	for i := 1 to n do begin
		x[i] := random (10);
		write (x[i] : 3);
	end;
	
	writeln;
	
	for i := 1 to n do
		if (x[i] in a) then begin
			k := 1;
			break;
		end
		else
			a := a + [x[i]];
	
	writeln (k);
	readln;
END.

Зависит от элементов массива =)
Можно и без множеств сделать, вложенным циклом, например.. Ну, я навскидку могу еще несколько способов назвать. А мой код, если даже он Вам подойдет, все равно придется переделать под обработку двух массивов. Так что без усилий с Вашей стороны Вам все равно решения не получить =)