27.05.2008, 23:03
общий
это ответ
Здравствуйте, Sanq4! <font color=blue>К</font>од <font color=blue>В</font>ашей программы в приложении.
<p><fieldset style=‘background-color:#EFEFEF; width:80%; border:#777777 1px solid; padding:10px;‘ class=fieldset><font color=#777777><i>Пишем правильно.</i>
-----
</font><font color=#777777 size=1><b>• Отредактировал: <a href=http://rusfaq.ru/info/user/18359 target=_blank>Николай Владимирович / Н.В.</a></b> (Профессор)
<b>• Дата редактирования:</b> 27.05.2008, 23:17 (MCK)</font></fieldset>
Приложение:
uses crt;
var a:array [1..20] of integer;
i,n,b,kol:integer;
begin
clrscr;
writeln (‘vvedite kol-vo elementov‘);
readln (n);
writeln (‘vvedite chislo a‘);
readln(b);
kol:=0;
writeln (‘vvedite massiv‘);
for i:= 1 to n do begin
writeln (‘vvedite ocherednoy element‘);
readln (a[i]);
if a[i]=b then inc(kol);
end;
write (‘kol-vo elementov ravnyh ‘,b,‘ ravno ‘,kol);
readln;
end.