Program p1;
const N=10;
var i,max,sum:integer;
a:array[1..10] of integer;
begin
randomize;
max:=0;
sum:=0;
for i:=1 to N do a[i]:=1+random(10);
for i:=1 to N do write(a[i],' ');
for i:=1 to N do
if (a[i]>max) then max:=a[i];
writeln;
writeln('Максимальное число: ',max);
for i:=1 to N do
if(a[i]=max) then sum:=sum+1;
write('Количество максимальных чисел: ',sum);
end.
Вычисляем по формуле n^i отсюда следует, если информация несет 4 бита информации то n^4=270
4^4<n^4<5^4
Ответ: юношей 4
<span>Тут всё просто - </span>
<span>1) Находишь наименьшее из трёх чисел. </span>
<span>2) Оставшиеся два числа перемножаешь.</span>
В чём помощь - то требуется?
Компьютера)))))))))))))эээх как же легко