Напишите наибольшее целое число х, для которого истинно высказывание: (х>5) и не (х>15)

Объяснение:

Нам сказано, что (х > 5) и не (х > 15). Мы можем записать это так: (x > 5) и (х 15). Наибольшее целое число, при котором будет выполняться это условие, равно 15.

ответ: 15.

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.

var a: array[1..100] of integer;

i,ms,ps: integer;

begin

  {vvod massiva a}

  for i: = 1 to 100 do

    if a[i] > 0 then ps: =ps+a[i]

    else ms: =ms+a[i];

  writeln(ps,ms);

end.