1) А В В(отр с черточкой) В(отр)vA F
0 0 1 1 0
0 1 0 0 0
1 0 1 1 1
1 1 0 1 1
2) ABC AVB CVB F
0 0 0 0 0 0
0 0 1 0 1 0
0 1 0 1 1 1
1 0 0 1 0 0
0 1 1 1 1 1
1 0 1 1 1 1
1 1 0 1 1 1
1 1 1 1 1 1
Вроде так, если не видно могу переписать, в текстовом виде.
//Pascal
//Массив заполняется случайными числами от 1 до 10
var
A: array [1..10] of byte;
i: byte;
Sum: real;
begin
randomize;
for i := 1 to 10 do
begin
A[i] := random(9)+1;
write(A[i]:3);
Sum := Sum + A[i] + 2;
end;
writeln;
for i := 1 to 10 do writeln(Sum/sqrt(abs(A[i])):0:2);
writeln;
end.