Информация используется при принятии решений.
Информация используется при принятии решений.-Достоверность, полнота, объективность полученной информации обеспечат вам возможность принять правильное решение.
Информация используется при принятии решений.-Достоверность, полнота, объективность полученной информации обеспечат вам возможность принять правильное решение.-Ваша ясно и доступно излагать информацию пригодится в общении с окружающими.
Информация используется при принятии решений.-Достоверность, полнота, объективность полученной информации обеспечат вам возможность принять правильное решение.-Ваша ясно и доступно излагать информацию пригодится в общении с окружающими.-Умение общаться, то есть обмениваться информацией, становится одним главных умений человека в современном мире.
const N = 100;
var a: array [1..N] of real;
median: real;
sum: real;
count_more, i: integer;
begin
randomize;
for i:= 1 to N do a[i]:= random(1, 1000);
sum:= 0;
for i:= 1 to N do sum:= sum + a[i];
median:= sum / N;
count_more:= 0;
for i:= 1 to N do begin
if a[i] > median then inc(count_more)
else a[i]:= a[i] * 1.1;
end;
write(count_more);
end.
