Всё просто:
В двоичной системе числа записываются только единицей и нулём, значит в ней не может существовать
В восьмеричной от 0 до 7, значит в ней оно может быть записано
В десятеричной от 0 до 9, значит в ней тоже может
В шестнадцатиричной 0-9 и ABCDF (10-15), значит в ней тоже может
Ответ - основания 8, 10, 16
Добавь модуль Math, создай на форме Label и после implementation <span>{$R *.dfm} вставь
procedure TForm1.FormCreate(Sender: TObject);
const n=10;
var a:array[1..n] of integer;
i,mi,ma,s:integer;
begin
randomize;
s:=0;
ma:=1;
mi:=1;
for i:=1 to n do begin
a[i]:=random(20)-10;
if a[i]>a[ma] then ma:=i
else if a[i]<a[mi] then mi:=i;
label1.caption:=label1.caption + inttostr(a[i]) + ' ';
end;
for i:=min(ma,mi) to max(ma,mi) do s:=s+a[i];
label1.caption:=label1.caption + #13 + inttostr(s);
<span>end;</span></span>
{Инициализировать переменные и организовать ввод-вывод, я уверен, вы сможете сами}
...
If ((a+b+c) mod 2 <> 0) then write('Сумма нечетная');
...