Uses crt;var a:array[1..100] of integer;i, max:integer;beginfor i:=1 to 100 dobegina[i]:=random(100);write(a[i],' ');end;max:=a[1];for i:=1 to 100 doif a[i]=25 then writeln('Да, число 25 есть в этом массиве.');if a[i]>max then max:=a[i];writeln('Максимальное число массива= ',max);readkey;<span>end.</span>
1)3³=27
2)27³=19683
3)19683³=7625597484987
4)7625597484987³=с калькулятора=4.43426488e38
Но я думаю не обязательно считать,просто алгоритм