Третей переменной пусть будет "c"
с:=а {сначала "запоминаем" значение "а" с помощью третей переменной}
а:=в {далее делаем "а" равной "в"}
в:=с {затем "в" делаем равной "с" которая равна первому значению "а"}
Готово
<em>// PascalABC.NET 3.2, сборка 1415 от 25.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function MatRead(var n:integer):array[,] of integer;
// функция создает и возвращает квадратную матрицу n*n,
// элементы которой вводятся к склавиатуры.
// Она фактически не нужна в этой версии Паскаля,
// потому что уже встроена, но раз просят...
begin
Result:=ReadMatrInteger(n,n)
end;
function MatSum(a,b:array[,] of integer):array[,] of integer;
begin
var n:=a.RowCount-1;
SetLength(Result,n+1,n+1);
for var i:=0 to n do
for var j:=0 to n do
Result[i,j]:=a[i,j]+b[i,j]
end;
procedure MatPrint(a:array[,] of integer; p:integer);
// вывод матрицы a в p позициях
// И эта процедура фактически не нужна, но присутствует
// из-за требований задачи.
begin
a.Println(p)
end;
begin
var n:=ReadInteger('n=');
Writeln('Введите элементы матрицы А');
var a:=MatRead(n);
Writeln('Введите элементы матрицы B');
var b:=MatRead(n);
MatPrint(MatSum(Transpose(a),b),4);
Writeln;
MatPrint(MatSum(Transpose(b),a),4)
end.
<u>Пример</u>
n= 3
Введите элементы матрицы А
1 2 3 4 5 6 7 8 9
Введите элементы матрицы B
18 17 16 15 14 13 12 11 10
19 21 23
17 19 21
15 17 19
19 17 15
21 19 17
23 21 19
Выделите на листе прямоугольную область ячеек с левым верхним углов в A1 и запустите программу, которая в каждой строке выделенной области обменяет местами содержимое ячеек с минимальным и максимальным значениями.
Sub abc()
a = Selection.Value
For i = 1 To UBound(a, 1)
aMin = a(i, 1): aMax = aMin
jMin = 1: jMax = 1
For j = 2 To UBound(a, 2)
If aMin > a(i, j) Then
aMin = a(i, j): jMin = j
End If
If aMax < a(i, j) Then
aMax = a(i, j): jMax = j
End If
Next j
Cells(i, jMin).Value = aMax
Cells(i, jMax).Value = aMin
Next i
End Sub
<span><span>Нарисуйте в графическом редакторе три дерева в разные времена года. Сделает проект с использованием этих образов. Сохраните проект в вашей папке в файле с именем Задание 4.3.3
Графический редактор:
Paint, Photoshop и</span><span> так далее.
Создать проект, не понимаю сути этого задания.
Типо.. можно в PowerPoint'e сделать слайды с данными картинками..
Пример:
Смотрите, это зима!!! И на слайд заливаешь картинку с этим твоим зимним деревом, создаёшь следующий и т. д.
3 время года..
Зима, Осень, Весна !?
Думаю, дальше уже сам разберёшься))</span></span>