Var n,a,b,c,d,i:integer;
begin
write('n = '); readln(n);
write('A и B: '); readln(a,b);
write('C и D: '); readln(c,d);
for i:=1 to a-1 do write(i,' ');
for i:=b downto a do write(i,' ');
for i:=b+1 to c-1 do write(i,' ');
for i:=d downto c do write(i,' ');
for i:=d+1 to n do write(i,' ');
end.
Пример:
n = 20
A и B: 5 10
C и D: 14 18
1 2 3 4 10 9 8 7 6 5 11 12 13 18 17 16 15 14 19 20
Вместо слов тип укажешь real если массив действительных чисел или integer - если целые числа
var a: array[1..10] of тип
i,n:integer; max, min, sum: тип
begin
write('Введите количество элементов массива'); readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; min:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
for i:=2 to n do if a[i]>min then min:=a[i];
sum:=0;
for i:=1 to n do if (a[i]>min) and (a[i]<max) then sum:= sum+a[i];
write('Сумма элементов массива расположенных между максимальным и минимальным = ', sum);
end.
Объём изображения = кол-во пикселей умножить на глубину цвета (бит)
найдем глубину цвета
I=V/x*y= 320 кб/1024*512 = 320*2^13/2^19 = 320/2^6 = 320/64 = 5 бит
по формуле кол-во цветов равно 2 в степени кол-ва бит на 1 пиксель (глубина цвета), а она у нас = 5, значит кол-во цветов = 2^5 = 32 цвета
N=7,
1 4 6 7 9 12 17
1)среднее арифметическое = (1+4+6+7+9+12+17)/7 = 8
2)<span>среднее геометрическое = корень седьмой степени из(1*4*6*7*9*12*17)=</span>6.08
3)<span>среднее гармоническое = 7/(1/1+1/4+1/6+1/7+1/9+1/12+1/17) = 3.857</span>
Для записи одного из семи значений требуется log(2)7 ≈ 3 бита.
Запись 120 значений: 120*3 = 360 бит = 360/8 байт = 45 байт
