<em>Как-то так будет выглядеть ответ</em>
<em>UPD: 4 и 5 варианты стоит</em><u><em> поменять местами</em></u><em>.</em>
For i:=1 to 9 do
for j:= 0 to 9 do
if((i*i+j*j-3*i*j=1)and((i*10+j)div(i+j) = 7)and((i*10+j)mod(i+j) = 7) then write('Искомое число',i*10+j);
end.
Sum := 0;
z := 0;
for i := 1 to 4 do
for j := 1 to 2 do
if A[i,j] > 0 then
begin
sum := sum + A[i,j]
inc(z)
end;
SrArif := sum/z;
Program Zadacha;
var
matriza: array[1..11, 1..11] of integer;
i, j : integer;
Begin
randomize;
for i:=1 to 11 do
for j:=1 to 11 do
matriza[i][j] := random(10);
for i:=1 to 11 do
begin
for j:=1 to 11 do
Write(matriza[i][j], ' ');
WriteLn('');
end;
ReadLn;
End.