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.
смотри описание блок схемы на картинке
Нужно десятичное число постоянно делить в столбик на 16 и потом делить делитель на 16. сейчас наглядно покажу.
331 будем переводить
вот как показано на фото делишь и потом записываешь число с конца(стрелочкой показано), но в 16 системе нет чисел 10,11,12,13,14,15
вместо них идут буквы
10-A
11-B
12-C
13-D
14-E
15-F
это надо помнить
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.