Результаты переписи населения хранятся в памяти эвм. элемент массива - год рождения жителя. подсчитайте общее число жителей родившихся 1958г.

Program perpepis;
uses crt;
var
god:array [1..100] of integer;
i,c:integer;
begin
randomize;
for i:=1 to 100 do god[i]:=random(70)+1900;
for i:=1 to 100 do if god[i]=1958 then c:=c+1;
writeln('Kolichestvo gyteley ',c);
end.

Приведу часть программы.
n-любое число

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

K:=0;
for i:=1 to n do
if a[i]=1958 then inc(k); {или K:=k+1}
writeln(k);
end.