На вход в первой строке подается целое число A, во второй строке — целое положительное число N, а в третьей строке — массив из N целых чисел. Найти номер последнего элемента массива со значением A (элементы нумеруются от 1). Если требуемые элементы в массиве отсутствуют, то вывести 0. Решить в паскале

var

   a, n, i, otvet: integer;

   massiv: array [1..256] of integer;

begin

   write ('Enter A: ');

   readln(a);

   write ('Enter N: ');

   readln(n);

   otvet := 0;

   for i:=1 to n do begin

       write (' massiv[', i,'] = ');

       read(massiv[i]);

       if (a=massiv[i]) then otvet := i;

       end;

   write ('otvet = ', otvet);

end.

Объяснение: