ДАЮ
Сообщение на тему программное обеспечение для обработки видео

использовать Чертежник

алг

нач

опустить перо

сместиться в точку (0,4)

сместиться в точку (1.5,4)

сместиться в точку (2,3.5)

сместиться в точку (2,2.5)

сместиться в точку (1.5,2)

сместиться в точку (0,2)

сместиться в точку (1.5,2)

сместиться в точку (2,1.5)

сместиться в точку (2,0.5)

сместиться в точку (1.5,0)

сместиться в точку (0,0)

поднять перо

сместиться в точку (3,0)

опустить перо

сместиться в точку (4,4)

сместиться в точку (5,0)

поднять перо

сместиться в точку (3,1.5)

опустить перо

сместиться в точку (5,1.5)

поднять перо

сместиться в точку (6.3,0)

опустить перо

сместиться в точку (7,4)

сместиться в точку (7.7,0)

сместиться в точку (8,0)

сместиться в точку (8,-1)

сместиться в точку (8,0)

сместиться в точку (6,0)

сместиться в точку (6,-1)

поднять перо

сместиться в точку (9,4)

опустить перо

сместиться в точку (9,0)

сместиться в точку (11,4)

сместиться в точку (11,0)

поднять перо

сместиться в точку (12,0)

опустить перо

сместиться в точку (12,4)

сместиться в точку (13,1.5)

сместиться в точку (14,4)

сместиться в точку (14,0)

поднять перо

сместиться в точку (-5,-5)

кон

Объяснение:

Const n=10;
var 
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
i,j,s:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(21);
  write(a[i,j]:4);
  end;
  writeln;
 end;
for i:=1 to n do
 begin
 s:=0;
 for j:=1 to n do s:=s+a[i,j];
 b[i]:=s;
 end;
writeln('Полученный массив:');
for i:=1 to n do write(b[i]:4);
writeln; 
end.

Пример:
Исходный массив:
   8  12  16  16  19  15  11  11  13   7
   7   3  20   3  13   2  20  18   9   2
  18  11  17   0   4   0  18   3  17  12
  12   9  18   9  18   4   7  15   4  20
  17  12  13  20  12  20   4  10  16  18
  15  19   2   1  18  20  13   1  19   3
  12   7   8  13   3   3  15  13   2  15
  15   0  20   9  20  14   3  19   6  20
  12   4  19   0  19   2  18   4  12  10
   3   7   5  15  15   3  19   9  10   8
Полученный массив:
 128  97 100 116 142 111  91 126 100  94