Дан массив l[9]. найти сумму отрицательных элементов массива, расположенных между максимальным элементом и минимальным элементом. (язык программирования delphi)
Консольное приложение: const n=9; var l:array[1..n] of integer; i,max,imax,min,imin,s:integer; begin Randomize; writeln('Массив L:'); for i:=1 to n do begin l[i]:=random(51); write(l[i]:4); end; writeln; max:=l[1]; imax:=1; min:=l[1]; imin:=1; for i:=2 to n do begin if l[i]>max then begin max:=l[i]; imax:=i; end; if l[i]<min then begin min:=l[i]; imin:=i; end; end; writeln('max = l[',imax,'] = ',max); writeln('min = l[',imin,'] = ',min); s:=0; if imax>imin then for i:=imin+1 to imax-1 do s:=s+l[i] else for i:=imax+1 to imin-1 do s:=s+l[i]; writeln('s = ',s); end.
Пример: Массив L: 31 49 41 15 9 47 37 11 27 max = l[2] = 49 min = l[5] = 9 s = 56
131 в 10-чной= 10000011 в 2-чной 131/2=65 и остаток 1 65/2=32 и остаток 1 32/2=16 и остаток 0 16/2=8 и остаток 0 8/2=4 и остаток 0 4/2=2 и остаток 0 2/2=1 и остаток 0
218 в 10-чной=11011010 в 2-чной 218/2=109 и остаток 0 109/2=54 и остаток 1 54/2=27 и остаток 0 27/2=13 и остаток 1 13/2=6 и остаток 1 6/2=3 и остаток 0 3/2=1 и остаток 1
777 в 10-чной = 1100001001 в 2-чной 777/2=388 и остаток 1 388/2=194 и остаток 0 194/2=97 и остаток 0 97/2=48 и остаток 1 48/2=24 и остаток 0 24/2=12 и остаток 0 12/2=6 и остаток 0 6/2=3 и остаток 0 3/2=1 и остаток 1
1011100 в 2-чной = 1*2^6+0+1*2^4+1*2³+1*2²+0+0=64+16+8+4=92 в 10-чной
100100 в 2-чной = 1*2^5+0+0+1*2²+0+0=32+4=36 в 10-чной.
const n=9;
var l:array[1..n] of integer;
i,max,imax,min,imin,s:integer;
begin
Randomize;
writeln('Массив L:');
for i:=1 to n do
begin
l[i]:=random(51);
write(l[i]:4);
end;
writeln;
max:=l[1]; imax:=1;
min:=l[1]; imin:=1;
for i:=2 to n do
begin
if l[i]>max then begin max:=l[i]; imax:=i; end;
if l[i]<min then begin min:=l[i]; imin:=i; end;
end;
writeln('max = l[',imax,'] = ',max);
writeln('min = l[',imin,'] = ',min);
s:=0;
if imax>imin
then for i:=imin+1 to imax-1 do s:=s+l[i]
else for i:=imax+1 to imin-1 do s:=s+l[i];
writeln('s = ',s);
end.
Пример:
Массив L:
31 49 41 15 9 47 37 11 27
max = l[2] = 49
min = l[5] = 9
s = 56