Написать процедуру, вычисляющую площадь треугольника по его известным сторонам (используя
формулу Герона). Используя её, вычислить площадь четырехугольника с известными сторонами и
одной из диагоналей.

program spk;

var i,s,k:integer;

p:real;

a:array [1..10] of integer;

begin

for i:=1 to 10 do a[i]:=random(81)-30;

for i:=1 to 10 do write(a[i],'  ');

for i:=1 to 10 do if i mod 2 = 0 then s:=s+a[i];

p:=1;

for i:=1 to 10 do if a[i] < 0 then p:=p*a[i];

for i:=1 to 10 do if a[i] mod 2 <> 0 then k:=k+1;

write('s = ',s,'   p = ',p,'   k = ',k);

end.

Объяснение:

program spk;

var a:array [1..10] of integer;

i,s,k:integer;

p:real;

begin

p:=1;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(81)-30;

write(a[i],'  ');

if i mod 2 = 0 then s:=s+a[i];

if a[i] < 0 then p:=p*a[i];

if a[i] mod 2 <> 0 then k:=k+1

end;

writeln;

writeln('Сумма элементов массива, с четными номерами, равна ',s);

writeln('Произведение отрицательных элементов равно ',p);

writeln('Количество нечётных элементов равно ',k)

end.

import java.util.Arrays;

public class ArrayHandler {

   static double[] handle(double[] array) {

       double sum1 = 0.0;

       for(int i = 1; i < array.length; i+=2)

           sum1 += array[i];

       System.out.println(sum1);

       double sum2 = 0.0;

       int negPos1 = -1, negPos2 = -1;

       for(int i = 0; i < array.length; i++)

           if(array[i] < 0)

               if(negPos1 == -1)

                   negPos1 = i;

               else

                   negPos2 = i;

       if(negPos2 != -1)

           for(int i = negPos1 + 1; i < negPos2; i++)

               sum2 += array[i];

       System.out.println(sum2);

       int iter = 0;

       double[] temp = new double[array.length];

       for(double v : array)

           if(v > 1 || v < -1)

               temp[iter++] = v;

       double[] result = new double[iter];

       System.arraycopy(temp, 0, result, 0, iter);

       return result;

   }

}