1) 4
2) 0
3) 9,7
4) 3,14
5) 0,45
6) 0,5
7) 6
8) 6
9) 7
10) 49
Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('max = ',max);
for i:=1 to n do
if a[i]=max then write(i:3);
writeln;
end.
Пример:
Исходный массив:
-6 -9 10 -6 0 0 -8 10 -8 2
max = 10
3 8
Код программы можно посмотреть нажав Alt+F11
................................................
№ 1
что бы перевести из 10-ной с.с в 2-ную,нам необходимо число 83 делить на основание с.с в которую нам необходимо перевести(т.е нам необходимо перевести в 2-ную,значит делим на 2),получается частное и остаток( 0 или 1),,сравниваем частное и остаток если частное больше, то делим частное до тех пор пока не будет меньше делимого,затем записываем ответ с последнего частного и всех последующих остатков 83(10)= 1010011(2) ---> ответ будет 3
№ 2 зесь либо необходимо число перевести в 2-ную с.с,потом сравнивать все другие числа(но это будет посложнее так как необходимо быть внимательным) либо после 2-ной с.с перевести в 10-ную
а=Е7(16)=11100111(2)=231(10)
в=551(8)=11101001(2)=233(10)
1)11101010(2)=234(10) <span>2) 11101000(2)=232(10) 3) 11101011(2)=235(10) 4) 11101100(2)=236(10) ----->тем самым получили ответ : 2
</span>№3
a=70(10)=1000110(2)
b=40(16) =64(10)=1000000(2)
1) 1000000(2)=64(10) 2) 1000110(2)=70(10) 3) 1000101(2)=69(10) 4) 1000111(2)=71(10)----->тем самым получили ответ : 3