program a;
var
mas: 1..30,
ii: integer;
begin
for ii := 1 to 30
mas[ ii ] := 40 + random( 61 );
end.
Ответ:
<span>В.появление сложных внешних устройств и необходимость разделения ресурсов между задачами и пользователями</span>
//я так понимаю, речь идёт о монотонном возрастании
var ar:array[1..10] of integer;
i:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
for i:=2 to 10 do
begin;
if ar[i]<ar[i-1] then
begin;
writeln('Не возрастает');
exit;
end;
end;
writeln('Возрастает');
<span>end. </span>
Данное уравнение можно разбить на три строки (на фото красным цветом)
1) первая скобка(то есть содержимое до знака логического сложения V) и вторая скобка истинны
2) первая скобка истинна, вторая ложна
3) первая-ложь, вторая истинна
Далее составляем таблицу для четырех переменных (2^4=16 строк)
Выбираем в столбцах со стрелками ИСТИНА-ИСТИНА (то есть 1 - 1) Делаем вывод для первой строки нет решений
Для второй строки (1-0) получаем два решения Отмечены знаком "плюс"
Для третьей строки (0-1) также два решения Итого 4 решения