3. дана последовательность из n различных чисел. найти сумму её членов, распо-ложенных между максимальным и минимальным элементами (в сумму включить и оба эти числа

Программа на паскале:
const n=10;
var a:array[1..n] of integer;
max,min,imax,imin,s,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i],' ');
 end;
writeln;
max:=a[1]; imax:=1;
min:=a[1]; imin:=1;
for i:=1 to n do
 begin
 if a[i]>max then begin max:=a[i]; imax:=i; end;
 if a[i]<min then begin min:=a[i]; imin:=i; end;
 end;
writeln('max = ',max,'  min = ',min);
s:=0;
if imax<imin
 then for i:=imax to imin do s:=s+a[i]
 else for i:=imin to imax do s:=s+a[i];
writeln('s = ',s);
end.

Пример:
38 15 4 5 9 15 24 40 12 9 
max = 40  min = 4
s = 97

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

my @vector;
my $vector_length = 100;
my $random_dia = 30000;
push @vector, int(rand($random_dia)) for(0..$vector_length);
my ($start, $end) = (undef, undef);
my ($min, $max, $sum) = ( $random_dia, 0, 0,);
for my $position (0.. $#vector)){
  if($vector[$position] > $max ){
     $max = $vector[$position];
     $end= $position;
  }
  if($vector[$position] < $min ){
     $min = $vector[$position];
     $start= $position;
  }
}

for my $position ($min..$max){
 $sum += $vector[$position];
}

say 'Result: \t '.$sum;

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var n:=ReadInteger('n=');
  var b:=ArrRandomReal(n,-5,10);
  Writeln('Исходный массив'); b.Println(', ');
  Writeln('Сумма положительных элементов ',
    b.Where(x->x>0).Sum)
end.

Тестовое решение:
n= 10
Исходный массив
6.62419754156107, 6.74697848816727, 4.73433683148322, -0.587218480923781, -4.4331698163567, 0.961155824345143, -0.229649536884227, 7.50758543494511, 7.66080652720332, 9.97409514848799
Сумма положительных элементов 44.2091557961931

1) log2(64) = 6, на 1 пиксель нужно 6 бит, а всего 6 * 128 * 256 бит = 6 * 16 * 256 байт = 6*4 Кб = 24 Кб (1 байт = 8 бит, 1 Кб = 1024 байт)
2) 5 бит на пиксель, 5 * 128 * 128 бит = 10 Кб
3) 7 бит на пиксель, 7 * 64 * 128 бит = 7 Кб
4) 8 бит на пиксель, 8 * 64 * 256 бит = 16 Кб
5) 7 бит на пиксель, 7 * 32 * 1024 бит = 28 Кб
6) 6 бит на пиксель, 6 * 1024 * 512 бит = 384 Кб
7) 5 бит на пиксель, 80 Кб
8) 4 бита на пиксель, 32 Кб
9) 3 бита на пиксель, 12 Кб
10) 8 бит на пиксель, 16 Кб
11) 24 Кб = 24 * 1024 байт = 24 * 1024 * 8 бит, на 1 пиксель приходится (24 * 1024 * 8) / (128 * 256) = 6 бит. По формуле N = 2^i получаем 2^6 = 64 возможных цветов.
12) 10 Кб = 10 * 1024 * 8 бит, на 1 пиксель (10 * 1024 * 8) / (128 * 128) = 5 бит на пиксель, 2^5 = 32 цвета.
13) 7 бит на пиксель, 128 цветов
14) 8 бит на пиксель, 256 цветов
15) 7 бит на пиксель, 128 цветов