<span>устройство обеспечивающие обмен информацией с контроллерами периферических устройств, называется
шина</span>
Var
a:array[1..100000] of integer;
b:array[0..9]of boolean;
n,i:integer;
Procedure Two_Max;
var
cnt, i:integer;
begin
For i:= 1 to n do
b[a[i]]:= true;
For i:= 9 downto 0 do
if (b[i] = true)and(cnt < 2) then
begin
inc(cnt);
Write(i, ' ');
end;
end;
begin
Read(n);
For i:= 1 to n do
Read(a[i]);
Two_Max;
end.
1. На кой такие сложности не ясно. Коды символов идут по порядку русских на сколько я помню,
2. Отладка в этом случае должна помоч. Вводи алфавит и смотри результат, должен быть сдвиг на ключ.
<u>Напечатано будет число 22.</u>
В переменой m накапливается сумма элементов массива Work, не меньших текущего значения m.
Первоначально m=0, поэтому Work[1]=5 попадает в m.
Work[2]=4, но 4<m, поэтому m не меняется.
Work[3]=5 и 5=m, поэтому значение m увеличивается до 10.
Элементы Work со значением, меньшим 10, m не меняют.
Work[6]=12, 12>m, поэтому значение m увеличивается до 22.
В массиве нет значений 22 и больше, поэтому m больше не меняется.
10000+5000+600+90+4
ну это в сумме разрядных слогаемых, я не знаю подойдет или нет