Реалізувати в середовищі програмування наступну програму: Вибрати, серед трьох доданих чисел, які введені з клавіатури найменше (з умовою, що числа можуть бути однакові). Якщо число від'ємне - щоб видавась помилка і прохання ввести додане число

1. Выпишите все числа, при которых значение данных логическое выражений истинно.
А) (х>12) и не (х>15)
(72>12) & !(72>15)
1 & !1 = 0

(98>12) & !(98>15)
1 & !1 = 0

(67>12) & !(67>15)
1 & !1 = 0

(14>12) & !(14>15)
1 & !0 = 1
Выражение истинно для X=14.

Б) (X оканчивается на 5) и не (х- не двузначное число)
1)72
0 & ! !1 = 0
2)98
0 & ! !1 = 0
3)67
0 & ! !1 = 0
4)14
0 & ! !1 = 0
Выражение ложно для всех чисел

2. При каких значениях логическое выражение ложно (возможно несколько ответов).
Не ( Х – четное число) или (оканчивается на 4)

1)72
! 1 + 0 = 0 + 0 = 0

2)98
! 1 + 0 = 0

3)67
! 0 + 0 = 1 + 0 = 1

4)14
! 1 + 1 = 0 + 1 = 1

Выражение ложно для X = 72 и 98

1)uses crt;
2)var a:array[1..20,1..20] of integer;
3)n,m,i,j,mn,mx,jmn,jmx,x,y:integer;
4)begin
5)clrscr;
6)randomize;
7)write('Количество строк n=');
8)readln(n);
9)write('Количество столбцов m=');
10)readln(m);
11)writeln('Исходная матрица:');
12)for i:=1 to n do
13)begin
14) for j:=1 to m do
15)begin
16)a[i,j]:=random(20);
17)write(a[i,j]:4);
18)end;
19)writeln;
20)end;
21)for i:=1 to n do
22)begin
23)mx:=a[i,1];mn:=a[i,1];
24)jmx:=1;jmn:=1;
25)for j:=1 to m do
26)begin
27)if a[i,j]>mx then
28)begin
29)mx:=a[i,j];
30)jmx:=j;
31)end;
32)if a[i,j]<mn then
33)begin
34)mn:=a[i,j];
35)jmn:=j;
36)end;
37)end;
38)x:=a[i,1];
39)a[i,1]:=a[i,jmx];
40)a[i,jmx]:=x;
41)y:=a[i,m];
42)a[i,m]:=a[i,jmn];
43)a[i,jmn]:=y;
44)end;
45)writeln('Результат:');46)
46)for i:=1 to n do
47)begin
48)for j:=1 to m do
49)write(a[i,j]:4);
50)writeln;
51)end;
52)readln
53)end.