Const n = 3; m = 3; var a: array[1..n, 1..m] of integer; b: array[1..m] of integer; i,j,k,maxm:integer; begin for i:=1 to n do begin for j:=1 to m do begin write('A[',i,',',j,']= '); readln (a[i,j]); if (a[i,j] >= 10)and (a[i,j]<=20) then k:=k+1; if b[j]< a[i,j] then b[j]:=a[i,j]; end; end; writeln('Количество элементов [10,20] ', k); for i:=1 to n do writeln('Столбец №',i,' макс = ',b[i]); for i:=1 to n do begin for j:=1 to m do begin write(a[i,j]:5); end; writeln; end; end.
1) Видим A "И" !A что всегда даст Ложь, выражение всегда = ЛОЖЬ при любых аргументах 2) A & B & C | A & not(B & C) А за скобку A & (B & C | not(B & C) ) Все что справа от A всегда истино, можно опускать Ответ: A