Question

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

Разрешается использовать переменные j и min

Answer 1

var j, min: integer;
a: array [1..30] of integer;
begin
min:= 1001;
for j:=1 to 30 do
if (a[j]mod 10=3) and (a[j]min:= a[j]);
if min:= 1001
then writeln('Не найдено')
else writeln(min);
end.