Ответ:
51
Объяснение:
1) НЕ ((x > 50) или НЕ (х чётное))
2) НЕ (x > 50 или х нечётное)
3) x 50 и х чётное
4) Ищем число, которое больше 50 и нечетное
Var
a:array[1..10]of array[1..10] of integer;
i, j ,P: Integer;
Begin
randomize;
writeln('Массив:');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin a[i][j]:=random(21)-10;
write(a[i][j]:5);
end;
writeln;
end;
for i := 1 to 10 do
if a[i][i] < 0 then
begin P:=1;
for j := 1 to 10 do
P:=P*a[i][j];
writeln(i,'-я строка, П=',P);
end;
writeln;
<span>End.</span>