Объяснение:
program treugolnik;
uses crt;
var
x1, y1, x2, y2, x3, y3, p:real;
function dlina(a1,b1, a2,b2:real):real;
begin
dlina:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
begin
writeln('Введите координаты 1-ой вершины');
write('x='); readln(x1);
write('y='); readln(y1);
writeln('Введите координаты 2-ой вершины');
write('x='); readln(x2);
write('y='); readln(y2);
writeln('Введите координаты 3-ей вершины');
write('x='); readln(x3);
write('y='); readln(y3);
p:=dlina(x1,y1,x2,y2)+dlina(x1,y1,x3,y3)+dlina(x2,y2,x3,y3);
writeln('Периметр=',p);
end.
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