A)
var a,sum,p:integer;
<span>begin </span>
<span>writeln('Введите число a'); </span>
<span>read(a); </span>
<span>sum:=a div 10 + a mod 10; </span>
<span>p:=(a div 10) * (a mod 10); </span>
<span>writeln('Сумма цифр числа =',sum); </span>
<span>writeln('Произведение цифр числа =',p); </span>
<span>end.
</span>
б)
var a:integer;
<span>begin </span>
<span>writeln('Введите число a'); </span>
<span>read(a); </span>
<span>a:=(a mod 10)*10+a div 10; </span>
<span>writeln(a); </span>
<span>end.</span>
Sub z()
Range(Cells(1, 1), Cells(100, 100)).Clear
n1=5
n2=3
n3=4
k = 1
A = InitMatrix(n1, k, 1)
k = k + n1 + 2
B = InitMatrix(n2, k, 1)
k = k + n2 + 2
C = InitMatrix(n3, k, 1)
End Sub
Function InitMatrix(n, cx, cy)
ReDim A(n, n)
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
A(i, j) = Rnd * 200 - 100
Cells(cx + i, cy + j) = A(i, j)
Next
Next
Cells(cx, cy + n + 1) = "PositiveAverage ="
Cells(cx, cy + n + 2) = PositiveAverage(A)
InitMatrix = A
End Function
Function PositiveAverage(A)
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
If A(i, j) > 0 Then
s = s + A(i, j)
k = k + 1
End If
Next
Next
PositiveAverage = s / k
End Function
Ответ в файле::::::::::::::::::::::::::::::::::::::::::::
Function min(a: array of integer): integer;
var i, m: integer;
begin
for i := 0 to length(a) do
if (a[i] < m) then m := a[i];
result := m;
<span>end;
Вот, в теории должно работать, но проверить, извините, не могу, PascalABC не поддерживает передачу массивов><</span>