дан массив 5x5. найти сумму элементов 2 столбца. вывести на экран массив, полученную сумму. дан массив 5x5. сформировать одномерный массив из элементов 2 столбца матрицы. вывести на экран одномерный массив и матрицу. (паскаль)

===== PascalABC.NET =====

begin

 var a := MatrRandom(5, 5, -99, 99);

 a.Println(4);

 var b := a.Col(1);

 Println('Сумма элементов 2 столбца:', b.Sum);

 Print('Массив из 2 столбца:');

 b.Println

end.

В результате такого приёма персонаж будет выглядеть объёмным на плоском экране телевизора.

При возможности добавьте в осветительную систему и четвёртый источник света, который будет служить фоновым освещением, с его можно будет изменять яркость освещения фона, расположенного за объектом съёмки на заднем плане.

Недостаток освещения при видеосъемке

Очень частой проблемой для операторов становится нехватка света. Многие камеры при малой освещённости выдают нечёткую, зашумленную (зернистую) картинку, что просто не может радовать.

Некоторые производители пишут что их камеры могут снимать при недостаточной освещённости (при горящей свече) камеры, конечно, могут снимать в этих условиях, но качество заставляет ожидать лучшего.

program v1;

Var a:array [1..10] of integer;

    i,j,j1,min,n,max,q:integer;

begin

 randomize;

for i:=1 to 10 do a[i]:=random(31)+10;

Writeln (' Znachenija matracy ');

for i:=1 to 10 do write (a[i]:3); writeln;

Max:=a[1];

for i:=1 to 10 do

 if a[i]>=max then begin

                   max:=a[i];

                   j:=i;

                   end;

min:=a[1];

for i:=1 to 10 do

 if a[i]<=min then begin

                   min:=a[i];

                   j1:=i;

                   end;

                 q:=a[j1];

                a[j1]:=a[j];

                a[j]:=q;

For i:=1 to 10 do write (a[i]:3); writeln;

Writeln (' Maxim element = ',max);

writeln (' Minim element = ',min);

end.