составьте программу которая...

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

 

#include <iostream>
 
using namespace std;
 
int main()
{
 int a[10];
 for(int i=0;i<10;i++)
 {
  a=rand()%10+1;
 }
int b=0;
for(int i=0;i<10;i++)
{
 if(a%2==0)
  b++;
}
cout<<"Чётных чисел: "<<b<<endl;
system("PAUSE");
 return 0;
}
 
P.S. код написан на C++. Могу написать на Pascal'е (в следующий раз пиши на каком языке нужно писать).