Использовать Рисователь алг Робот нач в точку (100,100) кисть (голубой) залить (200,500) линия в точку (300,100) линия в точку (300,200) линия в точку (100,200) линия в точку (100,100) в точку (70,200) линия в точку (330,200) линия в точку (330,430) линия в точку (70,430) линия в точку (70,200) кисть (синий) залить (200,300) в точку (70,220) линия в точку (20, 300) линия в точку (20,340) линия в точку (70,260) в точку (330,230) линия в точку (380,60) линия в точку (380,110) линия в точку (330,260) прямоугольник (130,130,160,160) прямоугольник (240,130,270,160) прямоугольник (160,175,235,190) прямоугольник (110,430,170,460) прямоугольник (255,450,310,460) прямоугольник (255,430,310,460) кон
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
function NewMatrix(n:integer):array[,] of integer; begin Result:=MatrRandom(n,n,-50,50); Result.Println(4); Writeln(4*n*'-') end;
function KS(a:array[,] of integer):(integer,integer); begin var (k,s,n):=(0,0,a.RowCount-1); for var i:=0 to n-1 do for var j:=i+1 to n do if a[i,j]<0 then (k,s):=(k+1,s+a[i,j]); Result:=(k,s) end;
begin var d:=NewMatrix(8); var (l,c):=KS(d); var t:=NewMatrix(10); var (n,a):=KS(t); var q:=NewMatrix(7); var (m,b):=KS(q); Writeln($'l={l}, c={c}, n={n}, a={a}, m={m}, b={b}'); var (lp,rp):=(c/n+b/l,a/m); Writeln($'c/n+b/l={lp}{lp=rp?'' = '':'' <> ''}{rp}'); end.
Введи в массив из трех элементов 3 значения
Найди максимальное, узнай его номер, удали его из массива и оставшиеся два числа вычти одно из другого.