1) дан целочисленный массив размера n. назовем серией группу подряд идущих одинаковых элементов, а длиной серии — количество этих элементов (длина серии может быть равна 1) вывести массив, содержащий длины всех серий исходного массива. 2) проверить, образуют ли элементы целочисленного массива размера n 1)арифметическую, 2) прогрессию. если да, то вывести 1)разность2) знаменатель прогрессии, если нет — вывести 0.

если не ошебаюсь то так ) дан массив размера 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.

//создаем массив, summa: =0; countertwo : = 0; for counter : = 1 to n do         if (massive[counter] mod 5 = 0)  then                                                            begin                                                           summa: = summa + massive[counter];                                                           countertwo : = countertwo + 1;                                                           end; writeln(summa/countertwo); readln() end.        

1var i,sum: integer;       mas: array [1..10] of integer; begin      for i: =1 to 10 do begin                mas[i]: =random(20);                     write(' ',mas[i]);                   sum: =sum+mas[i];                                               end;   writeln;       write('среднее арифметическое этих чисел  = ',sum/10); end. 2  var i,max: integer; begin  readln(i);         while (i< > 0) do begin            if (i> max) then max: =i;                 readln(i);                               end;       writeln('максимальное число: ',max); end.