Программа расчета площади n-угольника по координатам его вершин. В паскале

Program Massiv;
{$APPTYPE CONSOLE}
uses  SysUtils;

var  i: integer; // счетчик 
 a: array[1..10] of Integer; // объявляем массив из 10 целых элементов
begin
// Вводим элементы массива с клавиатуры 
for i:=1 to 10 do  // цикл  
begin     
  writeln('vvedite element massiva i nagmite >>ENTER');     
  write('a[',i,']=');     
  write(a[i]);     
  read(a[i])   
end; 
i:=1;
j:=0;// счетчик для поиска 3-го элемента 
  repeat 
    if a[i]<=0   
      then
        inc(i) // переходим к следующему элементу        
      else     
        begin       
          inc(j); // отмечаем найденный положительный элемент      
          inc(i)  // переходим к следующему элементу     
        end; 
   until (j=3) or (i=11); // До тех пор пока не найден 3-й положительный элемент
                                  // либо не проверен весь массив
 if j=3   
   then // есть как минимум три положительных элемента  в массиве      
     writeln('3 Pologitelniy element a[',i-1,']=', a[i-1])   
   else // в массиве меньше трех положительных элементов     
     writeln('Net 3 pologitelnogo eltmenta = ');
readln; 
readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

#include <iostream>

#include <ctime>

using namespace std;

int main()

{

   int n[10],a,b;

   float s;

   cout<<"OT: ";cin>>a;

   cout<<"DO: ";cin>>b;

   srand(time(0));

   

   for (int i = 0; i<sizeof(n)/sizeof(int);i++)

   {

       n[i] = a+rand()%b;

   }

   cout <<"Все числа: ";

   for (int i = 0;i<sizeof(n)/sizeof(int);i++)

   {

       cout<<" "<<n[i];

       s = s + n[i];

   }

cout<<endl<<"ITOG: "<<s/(sizeof(n)/sizeof(int));

   return 0;

}

Объяснение: