Построить блок схему к алгоритму.1. Дана квадратная матрица порядка n(n=5). Если в данной матрице a нет отрицательных элементов, то транспонировать её, иначе выдать сообщение.
Program sortwhile {input,output};Const n=10;Var i: integer; u: real; a: boolean; x: array [1..n] of real;Begin {*read array X*} For i:=1 to n do Read {X[i]}; A:=false; While not a do Begin a:=true; For i:=1 to n-1 do If X[i]<X[i+1] Then Begin u:=X[i]; X[i]:=X[i+1]; X[i]:=u; a:=false; End; End {*while*};{*Write array X*} For
Write {X[i]}; WritelnEnd.
Решение во вложении ------------------------------------ Чуть кривовато, может, но, вроде, понятно должно быть.
