//Видимо, это одна задача, так как "изменения" во второй не указаны //Pascal ABC.NET v3.1 сборка 1172
Const n=20;
Var ar:array[1..n] of integer; i:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(10)-3; write(ar[i]:4); if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0; end; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end.
F истинно тогда и только тогда, когда истинно или , или z. Три переменные (x,y,z) дают 2³=8 комбинаций в таблице истинности. При этом, истинность F получается в пяти случаях (четыре дает истинность z и одну - истинность ). Получаем пять единичных комбинаций для таблицы истинности: x y z F 0 0 1 1 0 1 1 1 1 0 0 1 1 0 1 1 1 1 1 1 В исходной таблице истинности единицы в F в четырех случаях совпадают с единицами в первой колонке, следовательно она отражает состояние переменной z. Оставшаяся (пятая) единица в F должна соответствовать комбинации "100" для xyz и в исходной таблице она записана как "010". Тогда переменная х=1 должна стоять в этой таблице во второй колонке. Колонка для у - третья. ответ: zxy
, или z. Три переменные (x,y,z) дают 2³=8 комбинаций в таблице истинности. При этом, истинность F получается в пяти случаях (четыре дает истинность z и одну - истинность 
//Pascal ABC.NET v3.1 сборка 1172
Const
n=20;
Var
ar:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(10)-3;
write(ar[i]:4);
if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0;
end;
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример работы программы:
First array: 2 -3 5 6 -3 -3 1 -2 -3 1 3 -3 4 -3 1 -1 6 6 2 3
Final array: 4 0 10 12 0 0 2 0 0 2 6 0 8 0 2 0 12 12 4 6