Хмельницкий-Киев URL-адрес Хмельницкий-Львов URL-адрес
Хмельницкий-Одеса URL-адрес
​

1, 2, 3, 4

Объяснение:

Введем обозначения:

a = X > 0, b = X > 4

Тогда выражение будет иметь вид (a + b) → b и нужно найти условия, когда оно ложно. Вместо этого, мы будем искать, когда отрицание этого условия истинно, т.е. истинность ¬( (a + b) → b)

Для начала избавимся от импликации

¬( ¬(a + b) + b)

А теперь примерим к внешнему отрицанию закон де-Моргана

(a + b) · ¬b

Раскрываем скобки

a · ¬b  + b · ¬b

a · ¬b + 0

a · ¬b

Делаем обратную замену

( X > 0) · ¬(X > 4)

( X > 0) · (X ≤ 4)

Переведем это на более понятный язык:

X > 0 И X ≤ 4, или

0 < X ≤ 4

Из целых чисел сюда подойдут 1, 2, 3, 4.

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.