Паскаль как найти количество четных чисел

program massiv7;
uses crt;
const N=10;
type x=array [1..N] of integer;
var a:x;
i:integer;
k:integer;
begin
clrscr;
randomize;
for i:=1 to N do
begin
a[i]:= +10+random (91);
write (A[i]:5)
end;
writeln;
k:=0;
for i:=1 to N do
if a[i] mod 2=0 then
begin
k:=k+1
end;
writeln (‘Количество четных элементов =  ’,k:5);
readln
end.

Решение задачи 2.74 на Паскале

 
program mytask;

//****************************************************************
// КОНСТАНТЫ
//****************************************************************
const
  MAX_INDEX = 20;
  MAX_VALUE = 500;

//****************************************************************
// ТИПЫ ДАННЫХ
//****************************************************************
type TMas = array[1..MAX_INDEX] of WORD;

//****************************************************************
// ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ
//****************************************************************
var
  i      : WORD;
  MaxA   : WORD;
  A      : TMas;

//****************************************************************
// ФУНКЦИИ И ПРОЦЕДУРЫ
//****************************************************************

//****************************************************************
// Функция ищет наибольший элемент массива.
// ВХОД  : массив для поиска
// ВЫХОД : индекс элемента с наибольшим значением
//****************************************************************
function GetIndexMaxValue(M : TMas) : WORD;
var i, MaxWord, MaxM : WORD;
begin
  MaxM := 0;
  MaxWord := Low(MaxWord);
  //Найти наибольший элемент в массиве
  for i := 1 to MAX_INDEX do
    if M[i] > MaxWord then
      begin
        MaxWord := M[i];
        MaxM := i;
      end;
  Result := MaxM;
end;

//****************************************************************
// Функция подсчитывает количество чётных чисел в массиве до 
// указанного элемента.
// ВХОД  : М - массив для поиска,
//         N - индекс элемента, до которого выполняется поиск
// ВЫХОД : количество чётных чисел до элемента с индексом N
//****************************************************************
function GetNumOdd(M : TMas; N : WORD) : WORD;
var i, NumOdd : WORD;
begin
  Result := 0;
  //Если просматривать массив не далее 1-го элемента
  if N < 2 then
    begin
      if (not Odd(M[1])) then Result := 1;
      Exit;
    end;
  NumOdd := 0;
  for i := 1 to N-1 do
    if (not Odd(M[i])) then Inc(NumOdd);
  Result := NumOdd;
end;

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
begin
  Randomize;
// Заполнить массив случайными числами
  for i := 1 to MAX_INDEX do
    A[i] := Random(MAX_VALUE);

// Вывести массив на экран (значения с индексами)
  for i := 1 to MAX_INDEX do
    Write('[', i, ']', A[i], ' ');

// Вычислить и вывести результат
  MaxA := GetIndexMaxValue(A);
  WriteLn(#10#13, 'The index of the largest element: ', MaxA);
  WriteLn('Number of even numbers: ', GetNumOdd(A, MaxA));

  WriteLn('The end. Press ENTER...');
  ReadLn;
end.  

Решение задачи 2.74 на С++

#include <cstdlib>
#include <iostream>

//****************************************************************
// КОНСТАНТЫ
//****************************************************************
const int MAX_INDEX = 20;
const int MAX_VALUE = 500;

//****************************************************************
// ТИПЫ ДАННЫХ
//****************************************************************
typedef unsigned short int TMas[MAX_INDEX-1];    

using namespace std;

unsigned short int i;
unsigned short int MaxA;
TMas A; 

//****************************************************************
// ФУНКЦИИ И ПРОЦЕДУРЫ
//****************************************************************

//****************************************************************
// Функция ищет наибольший элемент массива.
// ВХОД  : массив для поиска
// ВЫХОД : индекс элемента с наибольшим значением
//****************************************************************
unsigned short int GetIndexMaxValue(TMas M)
{
  unsigned short int i, MaxWord, MaxM;

  MaxM = 0;
  MaxWord = 0;
  //Найти наибольший элемент в массиве
  for (i = 0; i < MAX_INDEX; i++)
    if (M[i] > MaxWord)
    {
      MaxWord = M[i];
      MaxM = i;
    }
  return(MaxM);
} 

//****************************************************************
// Функция подсчитывает количество чётных чисел в массиве до 
// указанного элемента.
// ВХОД  : М - массив для поиска,
//         N - индекс элемента, до которого выполняется поиск
// ВЫХОД : количество чётных чисел до элемента с индексом N
//****************************************************************
unsigned short int GetNumOdd(TMas M, unsigned short int N)
{
  unsigned short int i, NumOdd;
  NumOdd = 0;
  //Если просматривать массив не далее 1-го элемента
  if (N < 1)
  {
    if ((M[0] % 2) == 0) return(1);
    else return(0);
  }
  
  for (i = 0; i < N; i++)
    if ((M[i] % 2) == 0) NumOdd++;
  
  return(NumOdd);    
}       

//****************************************************************
// ОСНОВНАЯ ПРОГРАММА
//****************************************************************
int main(int argc, char *argv[])
{
  srand(time(0));      //Запустить генератор случайных чисел
  
// Заполнить массив случайными числами
  for (i = 0; i < MAX_INDEX; i++)
    A[i] = rand() % MAX_VALUE;

// Вывести массив на экран (значения с индексами)
  for (i = 0; i < MAX_INDEX; i++)
    cout << "[" << i << "]" << A[i] << " ";

// Вычислить и вывести результат
  MaxA = GetIndexMaxValue(A);
  cout << endl << "The index of the largest element: " << MaxA << endl;
  cout << "Number of even numbers: " << GetNumOdd(A, MaxA) << endl; 
  
  system("PAUSE");
  return EXIT_SUCCESS;
}