3.1. Найти минимальный из положительных элементов массива А с четными номерами (с учетом того, что их может не быть).ПОЖАЛУЙСТА РЕШИТЕ ПОДРОБНО С ОБЪЯСНЕНИЕМ,ПРОШУ)))ЗАРАНЕЕ СПАСИБООО

Сделал без логического типа. В чём проблема заглянуть хоть раз в документацию(справку)?

У меня внучке в школе поставили тройку по арифметике за то, что она решила задачу "У Васи было 5 яблок, а у Маши на 3 яблока больше. Сколько яблок было у детей?" вот так: 3+5=8. 5+8=13. Оказывается, "НЕПРАВИЛЬНО писать 3+5, нужно 5+3, потому что яблок 5 было!". Вопрос о том, как быть с правилом о перемене мест слагаемых остался за скобками...

Const  n=6; //размерность массива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.