Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от -1000 до 1000. Допишите на алгоритмическом языке программу, которая находит и выводит количество пар соседних элементов, в которых элементы расположены по убыванию. Например, для массива из 8 элементов, равных соответственно -1, 3, 4, 8, 7, 0, 1, -2, ответом будет 3. Запрещается использовать переменные, не описанные в приведенном фрагменте программы, но разрешается не использовать часть из них. нач целтаб a[1:30] цел i, j, k нц для i от 1 до 30 ввод a[i] кц кон

k := 0 нц для j от 2 до 30если a[j]<a[j-1] то k:=k+1 все кц вывод k

Пример работы:

Если то вот так:
begin
  Writeln('Температура апреля:');
  var a:=ArrRandom(30,-10,10); a.Println;
  var sr:=a.Where(x->x>=0).Average;
  Writeln('Средняя температура для дней, когда >0 = ',sr:4:1);
  var k:=a.Where(x->x>=0).Count;
  if k=0 then writeln('No')
  else Writeln('Количество дней с температурой >0 = ',k);
  Writeln('Самая низкая температура: ',a.IndexMin+1,' день апреля');
end.

Пример:
Температура апреля:
-3 -5 9 7 0 -7 -3 8 -5 9 -5 1 -8 3 0 3 -2 -7 9 4 2 -4 -10 7 1 7 4 3 6 -2
Средняя температура для дней, когда >0 =  4.6
Количество дней с температурой >0 = 18
Самая низкая температура: 23 день апреля

Const n=5; m=12;
var 
a:array[1..n,1..m] of integer;
i,j,s,max,imax:integer;
begin
Randomize;
writeln('Зарплата за год:');
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
   a[i,j]:=random(15000)+10000;
   write(a[i,j]:6);
  end;
  writeln;
 end;
writeln('Средние зарплаты по месяцам:');
max:=0;
for j:=1 to m do
 begin
 s:=0;
 for i:=1 to n do s:=s+a[i,j];
 write(s/n:5:2,' ');
 if s>max then begin max:=s; imax:=j; end;
 end;
writeln;
writeln('max = ',max/n:5:2,' месяц:',imax);
end.

Пример (для 4 месяцев, т.е. m=4):
Зарплата за год:
 12533 11176 15153 14194
 12649 22212 15546 17586
 23643 15664 15538 21740
 24382 10015 15816 24377
 11388 12739 18790 21034
Средние зарплаты по месяцам:
16919.00 14361.20 16168.60 19786.20 
max = 19786.20 месяц:4