Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. С клавиатуры вводится целое число. Напишите программу, которая находит и выводит наибольший порядковый номер элемента, равного этому числу, или сообщение, что такого элемента нет.

--- PascalABC.NET 3.6.2 ---

begin

 var a := ArrRandom(30, -99, 99);

 a.Println;

 var b := ReadInteger();

 var LInd := A.LastIndexOf(b);

 if LInd <> -1 then Println(LInd+1) else Println('Not Found');

end.

Объяснение:

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;

пщояк 17 27 16 33 17

нщёп 15 27 7 17