Для двух треугольных пирамид, заданных ребрами, определить, площадь полной поверхности которой из них больше и на сколько. составить программу с ветвящейся структурой используя условный оператор if

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! function geron(a,b,c: real): real; // возвращает площадь треугольника со сторонами a,b,c begin   var p: =(a+b+c)/2; // полупериметр   result: =sqrt(p*(p-a)*(p-b)*(p-c)) end; function sp(ab,bc,ca,ad,bd,cd: real): real; // возвращает площадь полной поверхности пирамиды begin   result: =geron(ab,bc,ca)+geron(ab,ad,bd)+geron(bc,bd,cd)+           geron(ca,cd,ad) end; procedure vvod(var ab,bc,ca,ad,bd,cd: real); // ввод значений ребер begin   writeln('введите значения ребер пирамиды');   write('ребра основания- ab,bc,ca: '); read(ab,bc,ca);   write('боковые ребра- ad,bd,cd: '); read(ad,bd,cd) end; begin   var ab1,bc1,ca1,ad1,bd1,cd1: real;   vvod(ab1,bc1,ca1,ad1,bd1,cd1);   var sp1: =sp(ab1,bc1,ca1,ad1,bd1,cd1);   var ab2,bc2,ca2,ad2,bd2,cd2: real;   vvod(ab2,bc2,ca2,ad2,bd2,cd2);   var sp2: =sp(ab2,bc2,ca2,ad2,bd2,cd2);   var d: =sp1-sp2;   if d> 0 then writeln('площадь sполн 1й пирамиды больше на ',d)   else       if d< 0 then writeln('площадь sполн 2й пирамиды больше на ',-d)       else writeln('площади sполн пирамид равны'); end.

пройдемся по коду: возможно я не понял суть вашего ввода массива, но в циклах вы явно указывали не те размеры что надо.

пропущены операторные скобки "main" раздела.

неправильное использование else, так как он был отнесен совсем к другому оператору if.

исправил все синт. ошибки, добавил вывод массива с сортировкой, исправил директивы.

#include < iostream>

int main()

{

int a[][2] = { 2,6,1,9,5,7,0,10};

for (int i = 0; i < 4; i++)

  if (i % 2 == 0) {

  for (int k = 0; k < 2 - 1; k++)

    for (int j = 0; j < 2 - 1; j++)

    if (a[i][j] > a[i][j + 1])

      std: : swap(a[i][j], a[i][j + 1]);

  }

  else

  for (int k = 0; k< 2 - 1; k++)

    for (int j = 0; j< 2 - 1; j++)

    if ( a[i][j]< a[i][j + 1] )

      std: : swap(a[i][j], a[i][j + 1]);

// вывод результата

for (int i = 0; i < 4; i++) {

  for (int j = 0; j < 2; j++)

  std: : cout < < a[i][j] < < " ";

  std: : cout < < std: : endl;

}

return 0;

}

кривое оформление сайта.. (в приложении код)