1)дан массив из 10 элементов, вывести их на экран и выяснить, какой из элементов k или s является большим (k, s < 11 и с клавиатуры)

// pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var a: array of integer;               i,n: integer; begin //заполняем массив сл. числами и выводим //массив нумеруется с 0 write('число элементов массива '); readln(n); setlength(a,n); for i: =0 to n-1 do begin   a[i]: =random(21)-10;   write(a[i]: 4); end; writeln; //вывод элементов с неч. номерами в обратном порядке for i: =n-1 downto 0 do   if i mod 2 < > 0 then write(a[i]: 4); end. тестовое решение: число элементов массива 8   -2    2  -6  -5    1    3  -7 -10   -10    3  -5    2

ответ:

12,45

объяснение (см. также на приложенном скрине):

1) старшие два разряда числа x равны 10, потому что в числе y эти разряды равны нулю, а логическая сумма (операция или) равна 10 (чтобы получить единицу- хотя бы один из входных разрядов должен быть равен единице;   ну а ноль можно получить только если оба они равны нулю).

2) во втором разряде чисел x и y должен стоять ноль (т.к. лог. сумма равна нулю).

3) так как в числе x должно быть четыре единицы в разрядах, то проставляем оставшиеся три (т.к. других свободных разрядов для них нет).

4) находим оставшиеся разряды числа y по логическому произведению (операция и) и числа x (чтобы получить единицу- оба входных разряда должны быть равны единице, чтобы получить ноль- хотя бы один из них должен быть равен нулю).

получили:

переводим в десятичную систему счисления:

записываем, как указано в (в порядке возрастания, через запятую, без пробела):   12,45