ответ: блок схема во вложении.
Объяснение:
1. заполняем массив А размерностью 20 целыми числами. устанавливаем начальное значение параметра цикла = 2, то есть цикл будет начинаться со 2-го элемента. устанавливаем флаг b в true. от нужен для проверки "на возрастаемость"
2. начинаем цикл со 2 до 20 элемента
3. если текущий элемент больше предыдущего, то делаем инкремент параметра i и переходим на повторение цикла.
4. если текущий элемент НЕ больше предыдущего, то сбрасываем флаг b и выходим из цикла. Условие возрастаемости нарушено, дальнейшее сканирование не имеет смысла.
5. проверка флага b: в том случае если весь цикл пройден, от равен true, иначе, если был совершен выход из цикла по причине п.4, то равен false
6. в зависимости от состояния флага b выводим соответствующее сообщение.
блок-схема может редактировать через сайт: https://www.draw.io
const n=6; m=n;
var b:array[1..n,1..m] of integer;
i,j: integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
b[i,j]:=random(90)+10;
write(b[i,j]:4);
end;
writeln;
end;
writeln('Полученный массив:');
for i:=1 to n do
for j:=1 to m do
if i<>j then b[i,j]:=0;
for i:=1 to n do
begin
for j:=1 to m do write(b[i,j]:4);
writeln;
end;
end.
Пример:
Исходный массив:
59 63 74 85 64 87
59 86 48 66 68 44
49 36 90 15 96 34
44 52 81 83 57 53
61 45 93 85 16 40
17 68 11 43 84 96
Полученный массив:
59 0 0 0 0 0
0 86 0 0 0 0
0 0 90 0 0 0
0 0 0 83 0 0
0 0 0 0 16 0
0 0 0 0 0 96
в одном MB = 1024*1024=1 048 576 мне так проще узнать так как на память не помню
16 777 216 / 1 048 576 = 16 MB