Var
i,imax,max:integer;
b:array[1..50]of integer;
begin
for i:=1 to 50 do
begin
b[i]:=random(100);
write(b[i],' ');
if b[i]>max then
begin
max:=b[i];
imax:=i;
end;
end;
writeln;
writeln('Максимальное число: ',max,'; его номер: ',imax);
<span>end.</span>
https://pastebin.com/jXqipRqF
Только в конце вместо (4,2) должно бить (5,3), но это только пример роботи. А так все норм работает. Язык - питон
//PascalABC.NET 3.4.2
begin
var ar := arrrandom(100, -100, 100);
ar.Println.Take(5).Sum.Println;
ar.TakeLast(5).Sum.Println;
end.
Ада Августа Лавлейс................................
1.
Дано:
N = 8
Найти:
i - ?
Решение:
N = 2^i
i = log₂N
i = log₂8 = 3 бита
Ответ: 3 бита
2.
Дано:
V = 48 бит
i = 3 бита
Найти:
K - ?
Решение:
V = K * i
K = V / i
K = 48 бит / 3 бита = 16 букв
Ответ: 16 букв
3.
Дано:
q = 20 бит/с
t = 5 с
N = 16
Найти:
K - ?
Решение:
V = q * t
Vсообщ. = 20 бит/c * 5 с = 100 бит
N = 2^i
i = log₂N
i = log₂16 = 4 бит
K = V / i
K = 100 бит / 4 бит = 25 символов
Ответ: 25 символов
4.
Дано:
i = 4 бит
Найти:
N - ?
Решение:
N = 2^i
N = 2⁴ = 16 символов
Ответ: 16 символов