очень нужно написать программу Паскаль одномерные массивы!​

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

ответ: блок схема во вложении.

Объяснение:

1. заполняем массив А размерностью 20 целыми числами. устанавливаем начальное значение параметра цикла = 2, то есть цикл будет начинаться со 2-го элемента. устанавливаем флаг b в true. от нужен для проверки "на возрастаемость"

2. начинаем цикл со 2 до 20 элемента

3. если текущий элемент больше предыдущего, то делаем инкремент параметра i и переходим на повторение цикла.

4. если текущий элемент НЕ больше предыдущего, то сбрасываем флаг b и выходим из цикла. Условие возрастаемости нарушено, дальнейшее сканирование не имеет смысла.

5. проверка флага b: в том случае если весь цикл пройден, от равен true, иначе, если был совершен выход из цикла по причине п.4, то равен false

6. в зависимости от состояния флага b выводим соответствующее сообщение.

блок-схема может редактировать через сайт: https://www.draw.io