Var a, b, i, c:Integer ;
Begin
Write('a=') ;read(a) ;writeln;
Write('b=') ;read(b) ;writeln;
Write('c=') ;read(c) ;writeln;
If (a<c+b) and(b<a+c) and(c<b+a) then begin
I:=1;
Write(' Треугольник существует ') ;
End Else begin
I:=0;
Write(' Треугольник не существует ') ;
End;
If i=1 then begin
If (a>b) and(a>c) then
If sqr(a) =sqr(b) +sqr(c) then write(' Треуголинк прямоугольный')
Else write(' Треугольник не прямоугольный ') ;
If (b>a) and(b>c) then
If sqr(b) =sqr(a) +sqr(c) then write(' Треуголинк прямоугольный')
Else write(' Треугольник не прямоугольный ') ;
If (c>a) and(c>b) then
If sqr(c) =sqr(b) +sqr(a) then write(' Треуголинк прямоугольный')
Else write(' Треугольник не прямоугольный ') ;
End;
End.
a: array of integer;
i, N, prod: integer;
flag: boolean;
begin
prod := 1; flag := False;
write('Введите N -> ');
readln(N);
SetLength(a, N);
for i:=0 to High(a) do begin
A[i] := random(10)-5;
write(A[i], ' ');
if (abs(A[i] mod 2) = 1) then
prod *= A[i];
flag := True;
end;
writeln();
if (flag) then
writeln('Произведение нечетных элементов: ', prod, '.')
else
writeln('В массиве нет нечетных элементов.');
end.