ответ: блок схема во вложении.
Объяснение:
1. заполняем массив А размерностью 20 целыми числами. устанавливаем начальное значение параметра цикла = 2, то есть цикл будет начинаться со 2-го элемента. устанавливаем флаг b в true. от нужен для проверки "на возрастаемость"
2. начинаем цикл со 2 до 20 элемента
3. если текущий элемент больше предыдущего, то делаем инкремент параметра i и переходим на повторение цикла.
4. если текущий элемент НЕ больше предыдущего, то сбрасываем флаг b и выходим из цикла. Условие возрастаемости нарушено, дальнейшее сканирование не имеет смысла.
5. проверка флага b: в том случае если весь цикл пройден, от равен true, иначе, если был совершен выход из цикла по причине п.4, то равен false
6. в зависимости от состояния флага b выводим соответствующее сообщение.
блок-схема может редактировать через сайт: https://www.draw.io
Программа на паскале для такого случая (выплаты раз в год):
var sum,s,c,p1,p2:real; y,i:integer;
begin
sum:=40000;
y:=4;
c:=25;
p1:=sum*c/100;
s:=0;
writeln('Основной долг Проценты');
for i:=1 to y do
begin
p2:=sum*c/100;
s:=s+p1+p2;
sum:=sum-p1;
writeln(p1:5:2,' ':8,p2:6:2);
end;
writeln('За 4 года выплачено ',s:5:2);
end.
Результат:
Основной долг Проценты
10000.00 10000.00
10000.00 7500.00
10000.00 5000.00
10000.00 2500.00
За 4 года выплачено 65000.00