40 . 10класс дан массив , заданный датчиком случайных чисел в интервале [-60; 140]. определить, максимальный и минимальный элемент массива.

//PascalABC.NET 3.1 сборка 1200
begin
  var a := ArrRandom(100, -60, 140);
  println(a);
 
  println('Max = ' + a.Max);
  println('Min = ' + a.Min);
end.

Вот на шарпе.
 Console.WriteLine("s1=");           
string s1=Console.ReadLine();           
int k=1;int max=0;           
for (int i = 1; i < s1.Length-1; i++)            
{               
if (s1[i-1] == s1[i])               
{                   
k++;               
}               
else                
{                   
 if (k > max)                  
  {                       
max = k;                       
k = 1;                   
 }               
 }         
  }           
 Console.WriteLine(max);           
 Console.ReadKey();

2 задача.
I = 3 мб
М = 4×64 (кол-во стр. всего)
К = 128×96 ( кол-во символов или байтов на 1 стр)
N -? ( мощность алфавита найти)

решение .
переведем 3 мб в байты.
3мб*1024*1024 = 3145728байт

узнаем сколько байт на 1 стр
К= 128*96=122 88 байт

узнаем сколько всего страниц
М=4*64 = 256

нам понадобятся 2 формально
1) N = 2 ^i (два в степени i)
2) I = K *i *M
I, I и М нам известны, поэтому из второй формулы выражаем неизвестную i и получаем вот такую формулу
i= I/K*M
поставляем i=3145728/(12288*256)=3145728/3145728=1

вернемся к первой формуле , так как N = 2 ^i, а i=1 , то двойка будет в первой степень и следует, что N =2, так как два в первой степени равно двум. из двух символов состоит алфавит.