===== PascalABC.NET =====
begin
var x := ArrRandom(20, -99, 99);
x.Println;
var (imax, imin) := (x.IndexMax, x.IndexMin);
var t := (x.First + x.Last) div 2;
(x[imax], x[imin]) := (t, t);
x.Println;
x.Sum.Print
end.
Program test ;
Var
a:integer;
Begin
For i:=0 to 9 do begin
For i1:=0 to 9 do begin
For i2:=0 to 9 do begin
If (i<>i1) and (i1<>i2) and (i<>i2) then begin
writeln(" Комбинация введенная агентом 007 - ",i*100+i1*10+i2);
a:=a+2;
End;
End;
End;
Writeln(" В ХУДШЕМ случае он затратит на подбор пароля. ", a div 60,"мин. ",a mod 60,"сек. ") ;
End.
Формула для определения информационного объёма звукового байла:
N = k L f t
k - количество каналов (1 для моно, 2 для стерео)
L - глубина кодирования (количество информации в одном измерении)
f - частота (количество измерений в секунду)
t - продолжительность записи
1) N = 1 * 8 бит * 8000 Гц * 10 с = 640 000 бит = 80 000 байт = 78,1 Кб
2) N = 2 * 16 бит * 48000 Гц * 10 с = 15 360 000 бит = 1 920 000 байт = 1875 Кб = 1,8 Мб
Pascal:
a: array [1..10000] of integer;
i, n, m: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
m := 1;
for i := 2 to n do
if (a[i] > a[m])
then m := i;
writeln(a[m],' ',m);
end.
var s,k:integer;
Begin
read(k);
s:= k div 100 + k div 10 mod 10 + k mod 10;
writeln(s);
End.