Определите среднее арифметическое чётных элементов массива a[1..10] написать программу в паскаль

//Будем считать, что четные по значению

const

 n = 10;

var

 a: array[1..n] of integer;

 i, Sum, Count: integer;

begin

 Sum := 0;

 Count := 0;

 Randomize;

 for i := 1 to n do

 begin

   a[i] := Random(10);

   Write(a[i], ' ');

   if a[i] mod 2 = 0 then

   begin

     Sum := Sum + a[i];

     Count := Count + 1

   end

 end;

 

 Writeln;

 Write('Среднее арифметическое ' +  

       'четных чисел: ', Sum / Count)

end.

Здесь с четными, а там просто арефмитическое...

Var

m:array [1..100000] of integer;

k,i:integer;

Begin

k:=0;

randomize;

For i:=1 to 10 do

read(m[i]);

For i:=1 to 10 do begin

If m[i] mod 2=0 then

k:=k+m[i] else k:=k+0;end;

k:=k div 10;

writeln(k);

end.

#include <stdlib.h>

#include <time.h>

#include <iostream>

using namespace std;

#define N 16

void main()

{

   int randomNumbers[N];

   srand(time(NULL));

   for (int i = 0;i < N; i++)

   {

       randomNumbers[i] = rand() % 40 - 20;

       cout << "randomNumber[" << i << "] = " << randomNumbers[i] << endl;

   }

   cout << endl;

   int counter = 0;

   for (int i = 0; i < N; i++)

   {

       if (randomNumbers[i] < 0)

       {

           counter++;

       }

   }

   cout << "counter = " << counter << endl;

}

#include <stdlib.h>

#include <time.h>

#include <iostream>

using namespace std;

#define N 16

void main()

{

   int randomNumbers[N];

   srand(time(NULL));

   for (int i = 0;i < N; i++)

   {

       randomNumbers[i] = rand() % 40 - 20;

       cout << "randomNumber[" << i << "] = " << randomNumbers[i] << endl;

   }

   cout << endl;

   int counter = 0;

   for (int i = 0; i < N; i++)

   {

       if (randomNumbers[i] < 0)

       {

           counter++;

       }

   }

   cout << "counter = " << counter << endl;

}