1. придумать 2 простых высказывания и используя базовые связки составить составные высказывания (не менее 4х)

2. x = 0, y = 1, z = 1. вычислить значение логического выражения
не x и y или x и z

3. определить истинность составного высказывания:
(¬a & ¬b) & (c v d), состоящего из простых высказываний:
a = {принтер – устройство вывода информации}
b = {процессор – устройство хранения информации}
c = {монитор – устройство вывода информации}
d = {клавиатура – устройство обработки информации}

ответ:

1)false (т.к. x> y)

2)true (x

3)false(x> y)

4)true(т.к. x=y, x не равен y)

объяснение:

как то так)

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.