Язык C++. Решения смотри во вложениях.
Var
a, b, p: real;
begin
write('Введите значения A и B через пробел: ');
readln(a,b);
if a > b then
begin
p:=a;
a:=b;
b:=p;
end;
writeln('A = ', a, '; B = ', b);
<span>end.</span>
Безусловно, должны быть явными, потому что ни один из ссылочных типов не являтся подтипом значимых и преобразования должны быть заданы самостоятельно.
Ответ: 3)
function summa(var x: mas; su: real): real;
var
i: integer;
begin
su := 0;
for i := 1 to n do
su := su + x[i];
summa:=su;
writeln('sum=', su);
end;