Вычислить логические выражения . среди предложенных результатов (y1- y4) указать правильный. y = 2 and ( not 6 imp not 3) or 7 y1=0010 y2=1110 y3=0111 y4=0011
y = d eqv 2 eqv e eqv b y1=0001 y2=1110 y3= y4=0101
const n = 2; k = 2; var i,j,s:integer; a:array[1..n,1..k] of integer; begin s:=0; for i:=1 to n do for j:=1 to k do begin Writeln('Введите a[',i,',',j,']:'); readln(a[i,j]); if a[i,j] mod 2=0 then s:=s+a[i,j]; end; if s<0 then for i:=1 to n do for j:=1 to k do if j mod 2=0 then a[i,j]:=1; if s>=0 then for i:=1 to n do for j:=1 to k do if j mod 2=0 then a[i,j]:=-1; for i:=1 to n do begin for j:=1 to k do write('a[':4,i,',',j,']=',a[i,j]); writeln; end; end.
Const n = 3; k = 3; var i,j,s1,s2:integer; a:array[1..n,1..k] of integer; begin s1:=0; s2:=0; for i:=1 to n do for j:=1 to k do begin Writeln('Введите a[',i,',',j,']:'); readln(a[i,j]); if (a[i,j]>0) and (i<>j) then s1:=s1+a[i,j]; if (a[i,j]<0) and (i<>j) then s2:=s2+a[i,j]; end; if s1>s2 then for j:=1 to k do begin a[1,j]:=s1; a[n,j]:=s1; end; if s2>=s1 then for i:=1 to n do begin a[i,1]:=s2; a[i,k]:=s2; end; writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to k do write('a[':4,i,',',j,']=',a[i,j]); writeln; end; end.
const
n = 2;
k = 2;
var
i,j,s:integer;
a:array[1..n,1..k] of integer;
begin
s:=0;
for i:=1 to n do
for j:=1 to k do
begin
Writeln('Введите a[',i,',',j,']:');
readln(a[i,j]);
if a[i,j] mod 2=0 then s:=s+a[i,j];
end;
if s<0 then
for i:=1 to n do
for j:=1 to k do
if j mod 2=0 then
a[i,j]:=1;
if s>=0 then
for i:=1 to n do
for j:=1 to k do
if j mod 2=0 then
a[i,j]:=-1;
for i:=1 to n do
begin
for j:=1 to k do
write('a[':4,i,',',j,']=',a[i,j]);
writeln;
end;
end.