Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
253(8)=10101011(2)
2в4(16)=1010110100(2)
48(16)=1001000(2)
гласные звуки иероглифами не передавались.
var a: array[1..100] of integer;
s,i: integer ;
sr: real;
begin
{vvod massiva a}
for i: = 1 to 100 do
sr: =sr+a[i];
sr: = sr/100;
if a[i]> sr then
s: =s+1;
writeln(s);
end.
Популярные вопросы