Question

Помогите пожалуйста с структурной схемой (блок схемой) по паскалю var a:array[1..100] of real; i,n,j :integer; x ,max, sum :real; begin write ('Введите количество элементов массива n='); readln(n); writeln ('Введите количество элементов'); for i:=1 to n do begin write ('a[',i,']='); readln(a[i]); end; max:=a[1]; for i:=1 to n do begin If (abs(a[i])>abs(max)) then begin max:=a[i]; end; end; sum:=0; for i:=2 to n do begin if ((a[i+1]>0)and(a[i-1]>0)) then sum:=sum+a[i]; end; for j:=n downto 2 do for i:=1 to j-1 do if (a[i]>a[i+1]) then begin x:=a[i]; a[i]:=a[i+1] ; a[i+1]:=x; end; writeln('Максимальное по модулю число',max); writeln('summa=',sum); for i:=1 to n do writeln(a[i]); readln; end.

Answer 1

Как-то так... )))

См. картинку...

Answer 2

Вот структурная схема (блок-схема) вашей программы на языке Pascal:

luaCopy code
                                     
        +------------------------+                                 
        |    Ввод данных        |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        | Инициализация переменных |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        |   Вывод запроса n      |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        |   Ввод переменной n    |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        | Вывод запроса элемента |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        |  Ввод элемента массива |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        |     Проверка max      |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        |       Обновление max   |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        |  Проверка условия sum  |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        |   Обновление значения  |                                 
        |         переменной sum |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        |   Сортировка массива   |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        |        Вывод max       |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        |      Вывод sum         |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        |   Вывод элементов      |                                 
        |       массива          |                                 
        +------------------------+                                 
                  |                                              
                  V                                              
        +------------------------+                                 
        |       Завершение       |                                 
        +------------------------+                                 

Надеюсь, это поможет!