x>=10 - в данное неравенство входят все x из промежутка [10;+oo), т.е на данном промежутке неравенство истинно. А ложно оно соотвественно на (-oo;10). Логическое "не" инвертирует данное неравенство( истина становится ложью, и наоборот), значит:
не(x>=10) равносильно (x<10), и промежуток x: (-oo;10)
В итоге:
не(x - нечетное) и не(x>=10)<=>(x - четное) и (x<10)
Полученное неравенство будет истинно для четных x из промежутка (-oo;10).
Не нечетное число - это четное число, поэтому:
не(x - нечетное) равносильно (x - четное)
x>=10 - в данное неравенство входят все x из промежутка [10;+oo), т.е на данном промежутке неравенство истинно. А ложно оно соотвественно на (-oo;10). Логическое "не" инвертирует данное неравенство( истина становится ложью, и наоборот), значит:
не(x>=10) равносильно (x<10), и промежуток x: (-oo;10)
В итоге:
не(x - нечетное) и не(x>=10)<=>(x - четное) и (x<10)
Полученное неравенство будет истинно для четных x из промежутка (-oo;10).
Наибольшее четное число из (-oo;10): 8
ответ: 8
var
A: array [1..3, 1..5] of Integer;
i, j: Integer;
s: Real;
begin
Randomize;
WriteLn ('Массив:');
for i := 1 to 3 do begin // заполнение массива случайными значениями и вывод для просмотра
for j := 1 to 5 do begin
A [i, j] := Random (22) - 11;
Write (A [i, j], ' ');
end;
Writeln;
end;
for i := 1 to 3 do begin // замена элементов с четной суммой индексов на 555
for j := 1 to 5 do begin
if (i + j) mod 2 = 0 then
A [i, j] := 555;
end;
end;
WriteLn;
WriteLn ('Результат: '); // вывод результата
for i := 1 to 3 do begin
for j := 1 to 5 do begin
Write (A [i, j], ' ');
end;
Writeln;
end;
end.