Переменная a до выполнения условного оператора имеет значение 20. Чтобы из 20 получить 15, нужно вычесть 5, т.е. должен выполниться оператор присваивания, указанный после then, что возможно при истинности логического выражения if (a<1) ... (a>b). Отношение a<1 при a=20 ложно, отношение a>b при a=20 и b=5 истинно. Логическая операция, результатом которой является "истинно" в случае, когда один операнд имеет значение "ложно", а второй "истинно" - это операция дизъюнкции ("логическое ИЛИ"). В языке Паскаль она записывается как "or" ответ: or
// PascalABC.Net 3.0, сборка 1066 // PascalABC.Net 3.0, сборка 1066 const nn=50; mm=50; var a:array[1..mm,1..nn] of integer; i,j,m,n,k:integer; begin Write('Введите число строк и столбцов массива: '); Read(m,n); Write('Введите значение, заменяемое нулем: '); Read(k); Randomize; Writeln('*** Исходный массив ***'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4) end; Writeln end; Writeln('*** Результирующий массив ***'); for i:=1 to m do begin for j:=1 to n do begin if i+j=k then a[i,j]:=0; Write(a[i,j]:4) end; Writeln end end.
