Составить программу и блок схему

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.

C++

Объяснение:

#include <iostream>

using namespace std;

int main()

{

   int *arr;

   int count;

   

   cout << "Input count numbers: ";

   cin >> count;

   

   arr = new int[count];

   

   int maxC = -350000000;

   int minC = 350000000;

   

   cout << "Input numbers: " << endl;

   

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

       cin >> arr[i];

   }

   

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

       if (arr[i] < minC) {

           minC = arr[i];

       }  

       

       if(maxC < arr[i]) {

           maxC = arr[i];

       }

   }

   

   cout << "Max: " << maxC << " Min: " << minC;

   

   return 0;

}