Const
n=10;
var
a:array[1..n]of integer;
i,k:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i]:4);
if a[i] mod 2>0 then k:=a[i];
end;
writeln;
if k>0 then
for i:=1 to n do
if a[i] mod 2>0 then a[i]:=k+a[i];
writeln('Конечный массив:');
for i:=1 to n do write(a[i]:4);
<span>end. </span>
Из какой переводить число 112 в восьмиричную? Если из десятичной, то вот:
Переводим целую часть 112(в десятичной) в 8-ую систему последовательным делением на 8:
112/8 = 14, остаток: 0
14/8 = 1, остаток: 6
1/8 = 0, остаток: 1
Ответ: 160.
Program Anutka1506;
uses crt;
var
x,y,s,p: real;
begin
writeln('Введите числа:');
write('X='); readln(x);
write('Y='); readln(y);
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
s:=(x+y)/2;
p:=2*x*y;
if x<y then
begin
x:=s;
y:=p;
end
else
begin
x:=p;
y:=s;
end;
writeln('X=',x,' Y=',y);
end.
Думаю, разберешься, решение во вложении.
Var a,b:integer;
begin
readln(a,b);
if a>b then
writeln(a)
else
writeln(b);
<span>end.
Проверил, работает. Удачи:)</span>