1) p:=a[1]; k:=1;
for i:=1 to N do \\ПРОГОНЯЕМ КАЖДЫЙ ЭЛЕМЕНТ МАССИВА
if a[i]<>p then k:=k+1; \\ ВЫБОРКА ОТЛИЧНЫХ ЭЛЕМЕНТОВ
writeln(k); \\ ВЫВОД
2) poisk:=77; \\ НУЖНО НАЙТИ В МАССИВЕ
for i:=1 to N do
if a[i]=poisk then writeln(i); \\ВЫВОД НОМЕРА ЭЛЕМЕНТА В МАССИВЕ