Question

3.1. найти минимальный из положительных элементов массива а с четными номерами (с учетом того, что их может не быть). решите подробно с объяснением,

Answer 1

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.