Даны три числа а, b, c. если они могут являться сторонами треугольника, то определить вид этого треугольника: равносторонний, равнобедренный или прямоугольный, по формуле герона определить его площадь.

Var
a,b,c,p:real;
Begin
Write('a = ');Read(a);
Write('b = ');Read(b);
Write('c = ');Read(c);
if (a<b+c)and(b<a+c)and(c<a+b) then
Begin
if (a=b)and(a<>c) then Write('Треугольник равнобедренный, ')
else if (a=b)and(b=c) then Write('Треугольник равносторонний, ')
else if (a*a=b*b+c*c)or(b*b=a*a+c*c)or(c*c=b*b+a*a) then Write('Треугольник прямоульный, ')
else Write('Треугольник никакой, ');
p:=(a+b+c)/2;
a:=sqrt(p*(p-a)*(p-b)*(p-c));
Write('его площадь равна ',a);
End
else Write('Треугольник не существует')
End.

// PascalABC.NET 3.0, сборка 1073
const
  nn=30;
  mm=30;
var
  a:array[1..mm,1..nn] of integer;
  m,n,i,j,imax,jmax:integer;
begin
  Writeln('Введите число строк и столбцов массива: '); Read(m,n);
  Randomize;
  Writeln('*** Исходный массив ***');
  imax:=1; jmax:=1;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4);
      if a[i,j]>a[imax,jmax] then
        begin imax:=i; jmax:=j end
    end;
    Writeln
  end;
  for i:=1 to m do a[i,jmax]:=0;
  for j:=1 to n do a[imax,j]:=0;
  Writeln('*** Результирующий массив ***');
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:4);
    Writeln
  end
end.

Тестовое решение:
Введите число строк и столбцов массива:
5 8
*** Исходный массив ***
  11 -10 -25 -25 -19  -3  -2   0
 -24   1   5 -25 -21 -16 -16 -22
 -21 -10 -12   7  20  16   0 -10
 -13  25 -18  18  -5   9  15   1
 -19 -10 -16   9 -11  11  24 -19
*** Результирующий массив ***
  11   0 -25 -25 -19  -3  -2   0
 -24   0   5 -25 -21 -16 -16 -22
 -21   0 -12   7  20  16   0 -10
   0   0   0   0   0   0   0   0
 -19   0 -16   9 -11  11  24 -19

нужно сравнить такое число с числом, которое больше него на один .

Например если мы сравниваем число 20 с 21, мы видим, что оно положительно,если число -5 и -4 мы видим, что отрицательно, ну а вообще:

Для того чтобы объяснить основные определения, нам понадобится координатная прямая. Она будет расположена горизонтально и направлено слева направо: так будет удобнее для понимания.

Определение 1

Положительные числа – это те числа, которые соответствуют точкам в той части координатной прямой, которая расположена справа от начала отсчета.

Отрицательные числа – это те числа, которые соотносятся с точками в части координатной прямой, расположенной с левой стороны от начала отсчета (нуля).

Определение 2

Мы всегда записываем отрицательные числа с минусом.