Паскаль.Написать программу по которой из введённого массива А в массив В копируются только положительные элементы массива А

Программа

 {

покажись;

в_точку ( -125 ,-100 );

опусти_перо;

вперед ( 100 );

вправо ( 90 );

вперед ( 50 );

вправо ( 90 );

вперед ( 100 );

подними_перо;

в_точку ( -55 ,-50 );

опусти_перо;

вперед ( 50 );

влево ( 90 );

вперед ( 27 );

влево ( 90 );

вперед ( 50 );

влево ( 90 );

вперед ( 27 );

подними_перо;

 в_точку ( -10 ,-100 );

 опусти_перо;

 вправо ( 105 );

 вперед ( 52 );

 вправо ( 150 );

 вперед ( 52 );

 вправо ( 15 );

 подними_перо;

 в_точку ( 35 ,-50 );

 опусти_перо;

 вперед ( 50 );

 влево ( 150 );

 вперед ( 54 );

 вправо ( 150 );

 вперед ( 50 );

 подними_перо;

 в_точку ( 80 ,-50 );

 опусти_перо;

 вперед ( 50 );

 влево ( 180 );

 вперед ( 25 );

 вправо ( 90 );

 вперед ( 27 );

 влево ( 90 );

 вперед ( 25 );

 влево ( 180 );

 вперед ( 50 );

 подними_перо;

 в_точку ( 125 ,-100 );

 опусти_перо;

 вправо ( 195 );

 вперед ( 52 );

 вправо ( 150 );

 вперед ( 52 );

 вправо ( 15 );

 влево ( 90 );

 подними_перо;

 в_точку ( 125 ,-75 );

 опусти_перо;

 вперед ( 27 );

 подними_перо;

 в_точку ( 175 ,-100 );

 }

#include <iostream>

using namespace std;

int main(){

   int n, count = 0, suma = 0;

   cout<<"Vvesti kolichestvo elementow massiva\n";

   cin>>n;

   int arr[n];

   cout<<"Vvesti elementy massiva\n";

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

       cin>>arr[i];

   }

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

       if (arr[i]%5==0){

           count ++;

           suma += arr[i];

       }

   }

   cout<<"Kolichestvo elementov kratnyh 5 = "<<count<<endl;

   cout<<"Summa elementov kratnyh 5 = "<<suma<<endl;

}

Объяснение:

Создаем переменную n которая будет определять количество элементов в массиве.  Потом объявляем переменные count(подсчет элементов кратным 5) и suma(аналогично).

Вводим количество элементов массива и заполняем сам массив.

Далее идет цикл и в нем условие "Если элемент массива при делении на 5 дает остаток 0(то есть число кратное 5) то..."

В условии к count добавляем 1 элемент каждый раз, когда условие правдиво.

К суме добавляем сам элемент, в том же случае.

Ну и выводим эти переменные