Сструктурной схемой (блок схемой) по паскалю 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.

killpvpglava    2   03.10.2019 23:20    0