Question

Мы работаем в паскале) Задание во вложении

Answer 1

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); \\ВЫВОД НОМЕРА ЭЛЕМЕНТА В МАССИВЕ