Var a,b:integer; l:boolean;
begin
write('a = ');
readln(a);
l:=true;
while (a<>0) do
begin
b:=a;
write('a = ');
readln(a);
if (a<>0)and(a<=b) then l:=false;
end;
writeln(l);
end.
Пример 1:
a = 3
a = 6
a = 9
a = 4
a = 0
False
Пример 2:
a = 3
a = 6
a = 7
a = 0
True
<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 больше не меняется.
1110101, извини, решение не дам, я очень плохо эту тему помню, когда ещё в школе учился учили. Это ответ с онлайн калькулятора