Program n1; var kord: array[1..6] of real; st: array [1..3] of real; i: integer; begin i:=1; while i<=6 do begin write('введите координаты точки через пробел: '); readln(kord[i],kord[i+1]); i:=i+2; end; st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2])); st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2])); st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4])); if (st[1]<(st[2]+st[3])) and (st[2]<(st[1]+st[3])) and (st[3]<(st[1]+st[2])) then write('P=',st[1]+st[2]+st[3]) else write('треугольник не существует'); end.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(10,0,15); a.Println; var max:=a.Max; Write('Максимальный элемент ',max); Write(', элементов, равных ему - ',a.Where(x->x=max).Count-1) end.
Пример 7 15 8 1 15 13 6 15 5 11 Максимальный элемент 15, элементов, равных ему - 2
begin var a:=ArrRandom(20,0,150); a.Println; var (imin,imax):=(a.IndexMin,a.IndexMax); Writeln('Минимальный элемент ',a[imin],', максимальный ',a[imax]); Swap(a[imin],a[imax]); a.Println end.
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]<(st[2]+st[3])) and (st[2]<(st[1]+st[3])) and (st[3]<(st[1]+st[2])) then write('P=',st[1]+st[2]+st[3]) else write('треугольник не существует');
end.