1. 8
2. 18
3. 10
Объяснение:
Давай разберём высказывания. Они все построены по одному принципу. НЕ - это отрицание. Отрицание условия. Условиями являются знаки "больше", "равно", "меньше" и слова "чётное"-"нечётное".
1. В первом случае у нас отрицается знак "меньше" <, то есть находится ему противоположный. А противоположным является знак "больше или равно" >=. Соответственно, мы должны найти такое наименьшее число, которое больше или равно 7 и одновременно с этим является чётным. Логично, что это число 8.
2. Тот же самый принцип. Противоположностью знака "меньше или равно" будет являться знак "больше". Значит, мы ищем такое наибольшее число, которое больше 14 и одновременно с этим меньше или равно 18. Получаем, что ответ - 18.
3. Здесь отрицаются уже два условия. В первом случае получаем, что икс должен быть больше 6, а во втором - икс должен быть меньше 11. Нам нужно найти такое наибольшее число, которое удовлетворяет обоим этим условиям. Находим такое число - это 10.
Программа:
Pascal:
№2)
var
m: array[1..10] of integer;
begin
m[1]:=4; m[2]:=8; m[3]:=7; m[4]:=2; m[5]:=1; m[6]:=8; m[7]:=1; m[8]:=5; m[9]:=6; m[10]:=8;
for var i := 1 to 10 do
if m[i] = m.max then m[i]:= 0;
writeln(m);
end.
№3)
const n = 10;
var
a: array[1..n] of integer;
i, k, tmp: integer;
begin
for i := 1 to n do a[i] := random(0, 1);
writeln('Массив: ', a);
for i := 1 to n - 1 do
for k := 1 to n - i do
if a[k] > a[k + 1] then begin
tmp := a[k];
a[k] := a[k + 1];
a[k + 1] := tmp;
end;
writeln(a);
end.
№5)
const n = 10;
var
a: array[1..n] of integer;
a1, a2: array[1..n div 2] of integer;
i, k, tmp: integer;
begin
for i := 1 to n do a[i] := random(-10, 10);
writeln('Исходный массив: ',a);
for i := 1 to n div 2 do a1[i] := a[i];
for i := (n div 2 + 1) to n do a2[i - n div 2] := a[i];
for i := 1 to n div 2 - 1 do
for k := 1 to n div 2 - i do
if a1[k] > a1[k + 1] then begin
tmp := a1[k];
a1[k] := a1[k + 1];
a1[k + 1] := tmp;
end;
for i := 1 to n div 2 - 1 do
for k := 1 to n div 2 - i do
if a2[k] < a2[k + 1] then begin
tmp := a2[k];
a2[k] := a2[k + 1];
a2[k + 1] := tmp;
end;
for i := 1 to n do
if i <= 5 then a[i] := a1[i]
else a[i] := a2[i - n div 2];
writeln('Выходной массив: ', a);
end.
