1110101, извини, решение не дам, я очень плохо эту тему помню, когда ещё в школе учился учили. Это ответ с онлайн калькулятора
Рисунки, карты, чертежи, диаграммы, схемы, графики представляют собой модель
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y,z):=ReadInteger3;
Min(x*y*z,x+y+z).Println
end.
Program sh;
var j:integer;
massiv:array [1..1000] of integer;
begin;
begin;
randomize;
for j:=1 to 1000 do
massiv[j]:=random(1000);
end;
for j:=1 to 1000 do
begin;
if (massiv[j] mod 1=0) then
if (massiv[j]>0) and (massiv[j] mod massiv[j]=0) then
write (massiv[j]:5);
end;
end.
Я не очень понял запрос, в итоге эта программа выводит все натуральные числа созданные рандомом в районе от 0 до 1000.
Program z1;
const N=10;
var
i,k:integer;
a:array [1..N] of integer;
begin
for i:=1 to N do
readln (a [i]);
for i:=1 to N do
begin
if (a [i] mod 2 = 0) then
write (a [i]);
end;
for k:=10 downto 1 do
begin
if (a [k] mod 2 = 1) then
write (a [k]);
end;
end.