Уменя есть матрица. по определенному закону я должен переназначить значения элементов между собой. допустим у меня есть х=1 и у=2, как мне «поменять» у них значения между собой? вот кусок кода допустим, в котором я не уверен for i=1 to n do if x[i] begin x[i]: =y[i]; y[i]: =x[i]; end; получу ли я ожидаемый результат?

Не получишь. Во-первых, не знаю, законно или нет, но у тебя нет логического выражения в условной конструкции(if).

Во-вторых, опять же, не знаю, если ли в твоем языке функция swap(), которое меняет содержимое, но я бы сделал так:

temp := x[i]; //объяви сначала дополнительную переменную

x[i] = y[i];

y[i] = temp;

Ибо, если судить по твоему коду, ты присваиваешь переменной X значение переменной Y(получается, что теперь X = Y), а затем присваиваешь переменной Y значение переменной X(хотя они уже равны).

Zadacha_1;
var a,b,c:integer; 
begin   
writeln (' введите число');
    readln(a);
    b:=a mod 10;
    a:=a div 10;
    c:=a mod 10;
    a:=a div 10;
    if (a = b) or (a=c) or (b = c)then writeln ('такие числа есть')
    else writeln('таких чисел нет');
  end.

zadacha_2;
var a:integer; 
begin   
writeln(' введите время в минутах');
    readln(a);
    a:=a mod 10;
   if ((a >= 0) and  (a <= 3)) or ((a > 5) and  (a <= 8))  then writeln('зелёный');   
   if ((a > 3) and  (a <= 5)) or ((a > 8) and  (a < 0))  then writeln('жёлтый');
end.

Программа получает на вход натуральное число, затем подсчитывает сумму его цифр и определяет наименьшую из всех цифр, кроме первой.
В соответствии с условием задачи требуется найти наибольшее четырехзначное число, сумма цифр которого равна 29, а наибольшая из трех последних цифр не превышает 7.
Итак, одна из цифр числа известна - это 7. Тогда сумма остальных трех цифр равна 29-7=22, причем две из этих цифр не могут быть меньше 7. Полагаем, что они равны 7 с тем, чтобы получить наибольшую допустимую первую цифру. Получаем 22-7х2=8, т.е. число должно быть равно 8777.
ответ: 8777