Впрограмме выходит ошибка (встречен конец файла, а ожидался оператор) подскажите, что не так? program mas; const n=10; var a: array[1..n]of integer; i,s: integer; begin for i: = 1 to n do begin a[i]: = random (100); write (a[i]: 3); for i : = 1 to n-1 do begin for j : =n-1 downto i do if a [j]> a[j+1] then begin c: = a[j]; a[j]: = a[j+1]; a[j+1]: =c; end;

Количество begin должно совпадать с количеством end

Самый простой способ решить данную - просто построить таблицу истинности каждого из заданных вариантов и проверить на соответствие. сначала таблицы истинности конъюнкции,  дизъюнкции  и инверсии. сразу стоит отметить, что приоритет инверсии выше  конъюнкции и  дизъюнкции, а приоритет  конъюнкции выше  дизъюнкции. то есть, например, отрицание будет выполнено раньше логического или. логическое и,  конъюнкция (& ) x y f 0 0 0 0 1 0 1 0 0 1 1 1 логическое или,  дизъюнкция (|) x y f 0 0 0 0 1 1 1 0 1 1 1 1 инверсия(¬) x f 0 1 1 0 перейдём непосредственно к перебору вариантов: а) x & y & ¬ z 1 1 1 0 - не подходит, 1 и 1=1, 1 и 0=0, а должно быть 1 б) x & y & z 1 1 1 1 1 1 0 0 - не подходит, 1 и 1=1, 1 и 0=0, а должно быть 1 в) x | ¬ y | z 1 1 1 1 1 1 0 1 1 0 1 1 в) подходит г)  ¬x | y | ¬z  1 1 1 1 1 1 0 1 1 0 1 0 - не подходит, так 0 или 0=0, 0 или 0=0, а нужно 1 ответ: в)