Составить программу для решения задачи: 1)Даны действительные, положительные числа x,y,z. Выяснить, существует ли треугольник с длинами сторон x,y,z. Если треугольник, то является ли он равносторонним? 2)Дан одномерный массив. Найти количество смен знака между соседними элементами массива. Программа -Паскаль.

var x,y,z:real;beginreadln(x,y,z);if (x<y+z) and (y<x+z) and (z<x+y) then beginif (x=y) and (y=z) then writeln('Ravnostoronnii') else writeln('Ne ravnostoronnii');end else writeln('Ne vozmojno sostavit');end.

var a:array[1..10]of integer;i,sum:integer;beginfor i:=1 to 10 do readln(a[i]);for i:=1 to 9 do beginif (a[i]>0) and (a[i+1]<0) then sum:=sum+1;if (a[i]<0) and (a[i+1]>0) then sum:=sum+1;end;writeln(sum);end.