C :

#include<stdio.h>

int main()
{
  int a[10];
  int t,i,count=0;
  for(i=0;i<10;i++)
	  scanf("%d",&a[i]);
  scanf("%d",&t);
  for(i=0;i<10;i++)
  {
      if(t+30>=a[i])
		  count++;
  }
  printf("%d\n",count);
  return 0;
}

C++ :

#include<iostream>
using namespace std;
int main()
{
	int a[10],b;
	for(int i=0;i<10;i++)
		cin>>a[i];
	cin>>b;
	int count=0;
	for(int i=0;i<10;i++)
	{
		if(a[i]<=b+30)
			count++;
	}
	cout<<count<<endl;
	return 0;
}

Pascal :

var
i,n,s:integer;
a:array[1..10] of integer;
begin
  for i:=1 to 10 do read(a[i]);
  read(n);
  s:=0;
  for i:=1 to 10 do
    if n+30>=a[i] then s:=s+1;
  write(s);
end.