А = 1 "И" "Не А" = 1 то логическая формула равна нулю
А = 1 "И" "Не А" = 0 то логическая формула равно единице
А = 0 "И" "Не А" = 1 то логическая формула равна нулю
А = 0 "И" "Не А" = 0 то логическая формула равна нулю
Пояснение. "и" - это конъюнкция. В ней её переменные равны 1 только в том случае когда обе переменные истины. То есть 1. А так как Не А - это отрицание. То любое число становится противоположным. В данном случае ноль будет единицой
Program qwer;
uses crt;
var a : array[1..1000,1..1000] of integer;
i,j,x,y,min,max : integer;
begin
read(x,y);
min := 100;
max := 0;
for i := 1 to x do
for j:= 1 to y do
begin
a[i,j] := random(101);
if a[i,j] < min then min := a[i,j];
if a[i,j] > max then max := a[i,j];
end;
writeln(min);
write(max);
<span>end.</span>
Program arr;
var
a: array[1..10] of integer;
i: integer;
begin
randomize;
for i := 1 to 10 do
a[i] := Random(10);
for i := 1 to 10 step 2 do
a[i] := a[i] * 3;
for i := 2 to 10 step 2 do
a[i] := 0;
end.
Как вариант - сначала избавится от знака, потом проверять на кол-во разрядов. Т.е.
If (a < 0) a *= -1;
Или можно использовать cmath:
#include <cmath>
a = abs(a);
В пятом будет под буквой Г