Алгоритм, написанный на каком-либо языке программирования, набор команд, понятных для компьютера
Команда
Программа
Блок

//я писал этот унылый код полтора часа. Полтора часа, Карл! Я слишком расслабился.
#include <iostream>
using namespace std;
int k=2;

bool StrangeSeq(int n){
     if (k<n){
              if(n%k==0){
                         cout<<"false";
                         return false;
                         }
                         k++;
                         StrangeSeq(n);
                         }
                         else
                         {
                             cout<<"true";
                             return true;
                             }
}
                
int main(){
    int n;
    cin>>n;
    StrangeSeq(n);
    cin.get();
    cin.get();
}

(см. объяснение)

Объяснение:

Решение задачи на PascalABC.NET:

##

var a: sequence of integer := ReadArrInteger(ReadInteger).Where(x->x>0);

if(a.Count = 0) then print('NO')

else print(a.Sum/a.Count);

Решение задачи на PascalABC:

var a, N, i, sum, k: integer;

begin

 sum:= 0;

 k:= 0;

 readln(N);

 for i:= 1 to N do

 begin

   read(a);

   if(a>0) then

   begin

     k:= k+1;

     sum:= sum+a;

   end;

 end;

 if(k=0) then writeln('NO')

 else writeln(sum/k);

end.

Рекомендованное решение приведено первым, однако, как мне кажется, второе вам будет понятнее.

Задание выполнено!