VAR i, j: Integer; a: Array [1..10] of Array [1..10] of Integer; BEGIN for i := 1 to 10 do for j := 1 to 10 do a[i][j] := j*j;
for i := 1 to 10 do begin for j := 1 to 10 do Write(a[i][j],' '); Writeln; end; END.
VAR i, j: Integer; a: Array [0..4] of Array [1..4] of Integer; BEGIN for i := 1 to 4 do for j := 1 to 4 do begin a[i][j] := Random(7)+12; a[0][j] := a[0][j] + a[i][j]; end;
for i := 1 to 4 do begin for j := 1 to 4 do Write(a[i][j],' '); Writeln; end;
Writeln; for i := 1 to 4 do Write(a[0][i],' '); END.
VAR i, j: Integer; a: Array [0..7] of Array [1..7] of Integer; BEGIN for i := 1 to 7 do for j := 1 to 7 do begin a[i][j] := Random(7)+12; if (a[i][j] < 14) then Inc(a[0][j]); end;
for i := 1 to 7 do begin for j := 1 to 7 do Write(a[i][j],' '); Writeln; end;
Writeln; for i := 1 to 7 do Write(a[0][i],' '); END.
VAR i, j: Integer; a: Array [0..3] of Array [1..3] of Integer; BEGIN for i := 1 to 3 do for j := 1 to 3 do Read(a[i][j]);
for i := 1 to 3 do begin a[0][i] := a[1][i]; a[1][i] := a[2][i]; a[2][i] := a[0][i]; end;
for i := 1 to 3 do begin for j := 1 to 3 do Write(a[i][j],' '); Writeln; end; END.
VAR i, j, m: Integer; a: Array [1..5] of Array [1..5] of Integer; BEGIN for i := 1 to 5 do for j := 1 to 5 do begin a[i][j] := Random(5)+1; end;
for i := 1 to 5 do begin for j := 1 to 5 do Write(a[i][j],' '); Writeln; end;
m := 6; for i := 1 to 5 do for j := 1 to 5 do if (i > j)and(m > a[i][j]) then m := a[i][j];
x1→(x2∧x3∨x4∧x5∨x6∧x7) при
x1 x2 x3 x4 x5 x6 x7 F
0 1 0 1 1 1 0 0
0→(1∧0∨1∧1∨1∧0) = 0→1 = 1, а F=0. Не подходит
2.
x2→(x1∧x3∨x4∧x5∨x6∧x7) при
x1 x2 x3 x4 x5 x6 x7 F
0 1 0 1 1 1 0 0
1→(0∧0∨1∧1∨1∧0) = 1→1 = 1, а F=0. Не подходит
3.
x3→(x1∧x2∨x4∧x5∨x6∧x7) при
x1 x2 x3 x4 x5 x6 x7 F
0 1 0 1 1 1 0 0
1→(0∧1∨1∧1∨1∧0) = 1→1 = 1, а F=0. Не подходит
4.
x4→(x1∧x2∨x3∧x5∨x6∧x7) при
x1 x2 x3 x4 x5 x6 x7 F
0 1 0 1 1 1 0 0
1→(0∧1∨0∧1∨1∧0) = 1→0 = 0 - верно
x1 x2 x3 x4 x5 x6 x7 F
1 0 1 1 0 0 1 0
1→(1∧0∨1∧0∨0∧1)=1→0 = 0 - верно
x1 x2 x3 x4 x5 x6 x7 F
0 1 0 1 1 0 1 0
1→(0∧1∨0∧1∨0∧1)=1→0 = 0 - верно
ответ: Выражение x4→(x1∧x2∨x3∧x5∨x6∧x7) соответствует F.
i, j: Integer;
a: Array [1..10] of Array [1..10] of Integer;
BEGIN
for i := 1 to 10 do
for j := 1 to 10 do a[i][j] := j*j;
for i := 1 to 10 do begin
for j := 1 to 10 do Write(a[i][j],' '); Writeln; end;
END.
VAR
i, j: Integer;
a: Array [0..4] of Array [1..4] of Integer;
BEGIN
for i := 1 to 4 do
for j := 1 to 4 do begin
a[i][j] := Random(7)+12;
a[0][j] := a[0][j] + a[i][j];
end;
for i := 1 to 4 do begin
for j := 1 to 4 do Write(a[i][j],' '); Writeln; end;
Writeln;
for i := 1 to 4 do Write(a[0][i],' ');
END.
VAR
i, j: Integer;
a: Array [0..7] of Array [1..7] of Integer;
BEGIN
for i := 1 to 7 do
for j := 1 to 7 do begin
a[i][j] := Random(7)+12;
if (a[i][j] < 14) then Inc(a[0][j]);
end;
for i := 1 to 7 do begin
for j := 1 to 7 do Write(a[i][j],' '); Writeln; end;
Writeln;
for i := 1 to 7 do Write(a[0][i],' ');
END.
VAR
i, j: Integer;
a: Array [0..3] of Array [1..3] of Integer;
BEGIN
for i := 1 to 3 do
for j := 1 to 3 do Read(a[i][j]);
for i := 1 to 3 do begin
a[0][i] := a[1][i]; a[1][i] := a[2][i];
a[2][i] := a[0][i]; end;
for i := 1 to 3 do begin
for j := 1 to 3 do Write(a[i][j],' '); Writeln; end;
END.
VAR
i, j, m: Integer;
a: Array [1..5] of Array [1..5] of Integer;
BEGIN
for i := 1 to 5 do
for j := 1 to 5 do begin
a[i][j] := Random(5)+1;
end;
for i := 1 to 5 do begin
for j := 1 to 5 do Write(a[i][j],' '); Writeln; end;
m := 6;
for i := 1 to 5 do
for j := 1 to 5 do
if (i > j)and(m > a[i][j]) then m := a[i][j];
Writeln(a[i][j]);
END.