Ответ:
4
Объяснение:
Отсортируем этот массив. Получим 1, 3, 5, 9.
Так как количество элементов в нем честно, значит мы ищем среднее арифметическое двух центральных элементов. 3 и 5 находятся в центре.
числа 10101010 и 1111 могут быть в двоичной системе а остальные нет
Не ясно на каком именно бейсике это написано, но у меня есть только VBS
Так что форматирование может не совпасть
Код
Sub Zadanie
s = ""
n = 4
l = 2
for i = 1 to n
for j = 1 to n
if j=1 or i=1 or i=n or j=n then
s = s & "0"
else
l = l + 1
s = s & l mod 10
end if
next
s = s & vbNewLine
next
MsgBox (s)
End Sub
Вывод
0000
0340
0560
0000
var i:integer;
begin
for i:=10 to 99 do if i div 10=5 then write(i,' ');
end.