begin
*ввод массива*
min=-32767;
for i=1 to 10 do
if (mas[i]<min) and (mas[i] mod 10 = 7) then min:=mas[i];
end;
if (min=-32767) then writeln('Ни одно число не кончается на 7')
else writeln(min);
end.
begin
*ввод массива*
min=-32767;
for i=1 to 10 do
begin
if (mas[i]<min) and (mas[i] mod 10 = 7) then min:=mas[i];
end;
if (min=-32767) then writeln('Ни одно число не кончается на 7')
else writeln(min);
end.