Программисты и те кто хорошо знает информатику, может что то не так написал смотрите скрин
Определите истенностт или ложность предложенного логического высказывания для каждого указанного имени. ответ укажите в виде последовательности едениц и нулей в порядке следования имён(Например:1100(истена, истена, ложь)).(x>15)или не(x<8)и(x<20).
1)А=10
2)Б=17
3)С=28
4)Д=6
ответ:

81920 бит : 8 = 10240 байт

10240 байт : 1024 = 10 килобайт

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.

трех зайцев по углам, двоих вдоль стен

if(a> b) cout < < a;

if(a< b)cout < < b;