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