#include <iostream>
#include<conio.h>
#include "windows.h"
using namespace std;
int main()
{
float sum;
int n,count;
cout << "введите длину массива ";
cin >> n;
sum = 0;
count = 0;
float *mass = new float[n];
cout << "проинициализируйте массив" << endl;
for (int i = 0; i < n; i++)
{
cin >> mass[i];
}
for (int i = 0; i < n; i++)
{
if (mass[i] > 0)
{
sum += mass[i];
count++;
}
}
cout <<"среднее арифметическое положительных элементов массива = " << sum / count;
delete[] mass;
return 0;
}
Var
ar:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
readln(ar[i]);
if ar[i] mod 3=0 then k:=k+1;
end;
writeln(k);
end.