Ответ:
Объяснение:
const
n = 10;
a:array[1..n] of integer = (1, 1, 3, 4, 20, 1, 7, 1, 9, -2);
var
i:integer;
is_first_element:boolean;
min_element, max_element:integer;
min_element_ind, max_element_ind:integer;
begin
is_first_element:=false;// флаг того, что первый нужный элемент найден
min_element:=0;
max_element:=0;
min_element_ind:=0;
max_element_ind:=0;
for i:=1 to n do
if ((a[i] > 0) and ((a[i] mod 2) = 0)) then
// если нужный элемент найден
if (is_first_element) then begin
// если уже первый элемент был найден до этого шага
if (a[i] < min_element) then begin
// делаем проверку на минимальный элемент
min_element:=a[i];
min_element_ind:=i;
end;
if (a[i] > max_element) then begin
// делаем проверку на максимальный элемент
max_element:=a[i];
max_element_ind:=i;
end;
end
else begin
// если найденный элемент - первый
min_element:=a[i];
max_element:=a[i];
min_element_ind:=i;
max_element_ind:=i;
is_first_element:=true; // меняем флаг
end;
if (is_first_element) then begin
writeln('Минимальный элемент = ', min_element, ', его индекс = ', min_element_ind);
writeln('Максимальный элемент = ', max_element, ', его индекс = ', max_element_ind);
end
else begin
writeln('Элементов нет!!!');
end;
end.