Var a: array [1..100] of integer;
n, i, j: integer;
fout: text;
begin
assign(fout, 'output.txt');
rewrite(fout);
n := 10; //n - длина массива
for i := 1 to n do
a[i] := random(100);
for i := 1 to n do
write(fout, a[i], ' ');
writeln(fout);
j := 1;
for i := 2 to n do
if a[i] > a[j] then
j := i;
writeln(fout, 'max = ', a[j], ' max_ind = ', j);
j := 1;
for i := 2 to n do
if a[i] < a[j] then
j := i;
writeln(fout, 'min = ', a[j], ' min_ind = ', j);
close(fout);
<span>end.</span>
<span>b) Клавиатура, сканер, микрофон, мышь</span>
Процес угадывания, т.е нет факта что произошло угадывание, просто факт действия, удачный или нет.
64 = 2 в ст. 6
6 бит на одну попытку
Если возьмем массив 0 1 2 3 4 5 6 7 8 9 10
ОТвет: 52
4.
Обычный
Курсив
Полужирный
Полужирный курсив
Вообще это не информатика, а математика эдак класса 2.