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

2

Ответы и объяснения

2013-10-27T18:39:00+00:00
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.

если нужно объяснить что где пиши.
Комментарий удален
2013-10-27T18:41:56+00:00
Приведу часть программы.
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.