определить наименьший элемент массива С и его номер 


массив (10)
ограничения С < 0

На паскале. var C: array[1..10] of integer;i,k,m: integer;beginfor i:=1 to 10 do readln(C[i]);m:=C[1]; k:=1;for i:=2 to 10 do if C[i]<m then begin m:=C[i]; k:=i; end;writeln('Наименьший элемент ',m,', его индекс ', k); readlnend.