Var ar:array[1..n] of integer; i,min,b:integer; begin min:=2147483647; //верхняя граница типа integer b:=0; //проверка на наличие минимума - ложь for i:=1 to n do begin readln(ar[i]); if (i mod 2=0) and (ar[i]>0) and (ar[i]<min) then {если индекс чётный, элемент положительный и меньше минимума} begin min:=ar[i]; //заменяем минимум элементом b:=1; //проверка на наличие минимума - правда end; end; if b=0 then writeln('Нет') else writeln(min); {если проверка-ложь, то нет минимума, иначе выводим минимум} end.
#Python
#ответ B:
n = 1
num = []
while n != 0:
n = int(input("Введите число : "))
if n != 0:
num.append(n)
num3 = []
for n in num:
if int(n) % 3 == 0:
num3.append(n)
print("Макс :", max(num3), " Мин :", min(num3))
#ответ C:
n = 1
num = []
while n != 0:
n = int(input("Введите число : "))
if n != 0 and len(str(n)) == 2:
num.append(n)
num6 = []
for n in num:
if int(n) % 10 == 6:
num6.append(n)
if num6 == True:
print("Макс : ", max(num6))
else:
print("Нет такого число!")
Объяснение: