В десятичной системе счисления:
10, 11
В шестнадцатеричной системе счисления:
AF, В0
В восьмеричной системе счисления:
677, 700
В двоичной системе счисления:
101, 110
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var s:=a.Where(t->t.IsEven); s.Println; Writeln('Кол-во = ',s.Count);
s:=a.Where(t->t.IsOdd).Reverse; s.Println; Writeln('Кол-во = ',s.Count);
var imax:=a.IndexMax;
Writeln('Номер максимального элемента- ',imax+1,
', его значение- ',a[imax])
end.
<u>Пример</u>
n= 15
-39 29 23 4 -26 41 23 -9 10 49 -24 39 -28 19 15
4 -26 10 -24 -28
Кол-во = 5
15 19 39 49 -9 23 41 23 29 -39
Кол-во = 10
Номер максимального элемента- 10, его значение- 49
Возможны опечатки, т.к. плохо знаком с синтаксисом паскаля, но думаю все поймете.
a,i,m(12) as integer
for i=1 to 12 do
readln(m(i));
for i=1 to 6 do begin
a:=m(i);
m(i):=m(13-i);
m(12-i):=a;
end;
for i=1 to 12 do
writeln(m(i));
end.
Если что-то не понятно или выводит ошибку - пишите.
Правильный ответ : C. Внешний носитель