Program gt; var x1,y1,x2,y2,x3,y3,a,b,c,p,s: real; procedure dlinastoron(x1,y1,x2,y2: real; var b: real); begin b: =sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); end; procedure perimetr(a,b,c: real; var d: real); begin d: =a+b+c; end; procedure ploshad(a,b,c: real; var d: real); var s: real; begins: =(a+b+c)/2; d: =sqrt(s*(s-a)*(s-b)*(s-c)); end; begin readln(x1,y1,x2,y2,x3,y3); dlinastoron(x1,y1,x2,y2,a); dlinastoron(x1,y1,x3,y3,b); dlinastoron(x3,y3,x2,y2,c); perimetr(a,b,c,p); ploshad(a,b,c,s); writeln(a,' ',b,' ',c); writeln(p); writeln(s); end.
Volkov
23.04.2020
Не до конца понятно как именно надо заполнять потому два варианта begin arrrandominteger(10, 1, 10).println; arrgen(10, 1, x -> x + 1).println; end. или так const n = 10; var a: array[1..n] of integer; i: integer; begin for i : = 1 to n do begin a[i] : = i; write(a[i], ' '); end; end.