Поменять местами значения двух переменных.

A: =a-b; b: =b+a; a: =b-a

Var   i, j, k, n: integer;   m: array[1..1023] of byte; begin   write('введите натуральное число: ');   readln(n);   k : = 1;   m[1] : = 1;   j : = 2;   while j < = n do   begin       for i : = 1 to k do       begin           if m[i] = 1 then m[j] : = 0 else m[j] : = 1;           j : = j + 1       end;       k : = k * 2   end;     writeln('отладочная выдача всей последовательности');   for i : = 1 to n do write(m[i]);   writeln;     write(n, '-й член последовательности равен ', m[n]);   writeln(', два предыдущих равны ', m[n - 2], ' и ', m[n - 1]) end. тестовое решение: введите натуральное число: 50 отладочная выдача всей последовательности 10010110011010010110100110010110011010011001011010 50-й член последовательности равен 0, два предыдущих равны 0 и 1

min = 1

for i in range(0, len(matrix) ) :

for k in range(0,len(matrix[i])) :

 b = matrix[i][k]

 if b < min :

  ind =[i,k]

  min=b

max = 1

for i in range(0, len(matrix) ) :

for k in range(0,len(matrix[i])) :

 b2 = matrix[i][k]

 if b > max :

  ind2 =[i,k]

  max=b2

Объяснение:

min и max - временные переменные , используемые только в цикле

matrix - собственно сама матрица

ind - массив хранящий индекс матрицы с минимальный значением

ind2 - массив хранящий индекс матрицы с максимальным значением