Как это перевести ( 30 ) b7f9ded7c5b9a9828c9584704dbf4522438fffea0c3cb44ab39886eb3bbbf6727f3704f6789123608c00cb7979b5f9a562dc533938d4863f5f8ed417185a3f647022095d2795d5dbb07dd6be3f44710cec2db57652140e73f8303989d28629b68e5c030f1c702dae7b5d2af267ff042b4e56e1a5a10415487ccb8f91b96dadf712413a8e907787ccbd3d28f4​

если не ошебаюсь то так ) дан массив размера n. найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. найденные номера выводить в порядке их возрастания. var a,d: array[1..255]of integer; i,c,n: byte; begin write('n='); read(n); for i: =1 to n do begin write('a[',i,']='); read(a) end; writeln; c: =0; for i: =1 to n-1 do if a> a[i+1] then begin c: =c+1; d[c]: =i end; writeln('takux ejiemehtob: ',c); for i: =1 to c do write(d,' '); writeln end. 2) дан целочисленный массив a размера n,являющийся перестановкой. найти количество инверсий в данной перестановке,т.е. таких пар ai и aj элементов в которых большее число находится слева от меньшего: ai> aj при i< j> l) и целочисленный массив размера n. заменить каждую серию массива, длина которой меньше l, на один элемент с нулевым значением. что-то я не понял, что это за л? вот решил так: var a: array[1..256]of integer; i,j,n: byte; c: integer; begin write('n='); read(n); for i: =1 to n do begin write('a[',i,']='); read(a) end; writeln; c: =0; for i: =1 to n-1 do for j: =i+1 to n do if a> a[j] then inc(c); writeln('колличество инверсий - ',c); end.

у меня так, но не

 

rem с условием

input "x",x

input "y",y

input "z",z

if x=y=z then

    x=3*x

    y=y*3

    z=y*3

    print x

    print y

    print z

   

   

else

    if y=z then

          x=-x

          y=-y

          z=-z

          print x

          print y

          print z

         

         

    else

          x=222

          y=222

          z=222

          print x

          print y

          print z

    end if

end if

end