В одномерном массиве X(10) из положительных и отрицательных чисел найти: Количество отрицательных элементов в первой половине
В одномерном массиве X(10) из положительных и отрицательных чисел найти: Количество отрицательных элементов в первой половине половине массива, поставить найденное значение на место первого элемента? помогите пожалуйста по паскалю
Program a; var a: array [1..10] of integer; n,s: integer; begin for i:=1 to 10 do begin a[i]:=random(20)-10; write(a[i]); end; readln(n); for i:=n to 9 do begin s:=a[i+1]; a[i+1]:=a[i]; a[i]:=s; end; for i:=1 to 9 do writeln (a[i]); end.