Program gt;
var a:array[1..100]of integer;
n,i:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if(a[i]<=0)then write(a[i],' ');
for i:=1 to n do
if(a[i]>0)then write(a[i],' ');
end.
P=0 Q=1 S=0 T=0
(0 v не 1) v (1->(0 v0))=0
в первой скобке 0, во второй тоже 0, при импликации 0=1->0
ответ
0100
Есть несколько вариантов узнать значение переменной в любой момент работы программы
- пошаговое исполнение в редиме отладки (debug) и через watch или наведения мыши смотреть значение в определенный момент
- вывод в лог, или так называемый дебаг логированием. Логом может служить не только текстовый файл, но и консоль
- дополнительные способы типа assert