Question

ПОМОГИТЕ ПОЖАЛУЙСТА
результаты переписи населения хранятся в памяти ЭВМ. Элемент массива - год рождения жителя. Подсчитайте общее число жителей родившихся 1958г.

Answer 1

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.

Answer 2

если нужно объяснить что где пиши.

Answer 3

Приведу часть программы.
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.