Массив предназначен для хранения значенийи ростов 12 человек . с датчика случайнях чисел заполнить массив значениями, лежащими в диапозоне от 163 до 190 включительно. вывести данный массив на экран.

Var mass:array[1..12] of integer;   
      i:integer;
begin
randomize;
for i:=1 to 12 do begin
mass[i]:=163+random(28);
writeln('рост ',i,' =',mass[i]);
end;
end.

Пример работы:
рост 1 =167
рост 2 =168
рост 3 =186
рост 4 =167
рост 5 =170
рост 6 =170
рост 7 =173
рост 8 =175
рост 9 =168
рост 10 =179
рост 11 =174
рост 12 =188

Var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real;

procedure nod( var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real; );
var a:array[1..6] of real;
i : integer;
begin
dv1:=100;
tr1:=100;
pt1:=100;
for i:= low(a) to high (a) do begin
readln(a[i]);
repeat
if( (a[i] mod 2) =0) then begin
a[i]:=a[i]/2;
dv:=dv+1;
end
else if( ( a[i] mod 3)=0) then begin
a[i]:=a[i]/3;
tr:=tr+1;
end
else if ( ( a[i] mod 5)=0) then begin
a[i]:=a[i]/5;
pt:=pt+1;
end;

untill(a=1);
if dvif trif ptdv:=0;
tr:=0;
pt:=0;
end;
if dv1>0 then dv2:=dv1*2 else dv2:=1;
if tr1>0 then tr2:=tr1*3 else tr2:=1;
if pt1>0 then pt2:=pt1*5 else pt2:=1;
nod:=dv2*tr2*pt2;
writeln(nod);
end;
begin
nod( dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 );
end.

end;

3)не (X и Y) или Z

Объяснение:

1) не (X и Y) и Z

Поскольку тут перед Z стоит операция И, то при Z = 0 всегда будет F = 0, поэтому такая функция исключается.

2) не (X или не Y) или Z

Поскольку тут перед Z стоит операция ИЛИ, то при Z = 1 будет F = 1. Проверим комбинации, где Z = 0.

Для X=0, Y=0 получаем

F = не (0 или не 0)

F = не (0 или 1)

F = не (1)

F = 0

Но в первой строке таблицы стоит 1, поэтому такая функция исключается.

3) не (X и Y) или Z

Здесь по Z рассуждения, как в 2).

Для X=0, Y=0 получаем

F = не (0 и 0)

F = не (0)

F = 1 - первая строка проверку.

Для X=0, Y=1 получаем

F = не (1 и 0)

F = не (0)

F = 1 - последняя строка проверку.

Функция подходит.

4) (X или Y) и Z

Рассуждения, как в случае 1), функция не подходит.