Const
<span>i=10; </span>
<span>var m:array[1..i] of integer; </span>
<span>n,k,min,j:integer; </span>
<span>begin </span>
<span>k:=0; </span>
<span>writeln('Введите элементы массива'); </span>
<span>for n:=1 to i do read(m[n]); </span>
<span>min:=m[1]; </span>
<span>for n:=1 to i do if m[n]<min then begin </span>
<span>min:=m[n]; </span>
<span>j:=n; </span>
<span>end; </span>
<span>for n:=1 to j-1 do </span>
<span>if m[n]<0 then inc(k); </span>
<span>writeln(k); </span>
<span>end. </span>
10 rem
20 input d
30 let k=4.3*sin(exp(<span>1/d)+2)/(d+2,1)-6,7*d
40 print "k=";k
50 end
</span>
3 овоща - огурец, помидор, морковь.
и например 3 фрукта - яблоко, груша, киви.
Обработки информации наверное.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var m:=ReadInteger('Число минут:');
Writeln(m div 60,'ч ',m mod 60,'м')
end.
<u><em>Тестовое решение:</em></u>
Число минут: 150
2ч 30м