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

Traken Traken    3   30.07.2019 07:20    0

Ответы
babywka56 babywka56  27.09.2020 20:18
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 then begin 
min:=m[n]; 
j:=n; 
end; 
for n:=1 to j-1 do 
if m[n]<0 then inc(k); 
writeln(k); 
end. 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика