Задан массив M(n). Подсчитать количество отрицательных элементов, расположенных до...

Question

Задан массив M(n). Подсчитать количество отрицательных элементов, расположенных до минимального элемента массива. PASCALABC

Comments

Нат такой системы программирования - PASCALABC. Есть Pascal ABC и PascalABC.Net

---

ABC.Net_

Answer 1

Const 
i=10; 
var m:array[1..i] of integer; 
n,k,min,j:integer; 
begin 
k:=0; 
writeln('Введите элементы массива'); 
for n:=1 to i do read(m[n]); 
min:=m[1]; 
for n:=1 to i do if m[n]
min:=m[n]; 
j:=n; 
end; 
for n:=1 to j-1 do 
if m[n]<0 then inc(k); </span>
writeln(k); 
end.