Решить создать файл «u.txt», состоящий из nцелых случайныхчисел, принадлежащих интервалу от 5 до 55. с элементами созданного файла выполнить следующие операции: - вычислить количество элементов файла «u.txt» кратных 13. - вычислить сумму элементов, меньших 35. - найти наибольший элемент файла «u.txt».

Задача 1
Var i,sum:integer;
      mas:array [1..10] of integer;
Begin 
  for i:=1 to 10 do begin         
     mas[i]:=random(20);           
      write(' ',mas[i]);           
     sum:=sum+mas[i];                   
                         end; 
writeln; 
   write('Среднее арифметическое этих чисел = ',sum/10);
End.

Задача 2 
Var i,max:integer;
Begin 
readln(i); 
    while (i<>0) do begin   
       if (i>max) then max:=i;   
          readln(i);     
                       end; 
  Writeln('Максимальное число: ',max);
End.

1) E1A0(16) = 1110 0001 1010 0000(2) 
количество единиц = 6

2) 11001011(2) = 128+64+8+2+1 = 203(10)
11111000(2) = 128+64+32+16+8 = 248(10)
11011011(2) = 128+64+16+8+2+1 = 219(10)
10011111(2) = 128+16+8+4+2+1 = 159
11100100(2) = 128+64+32+4 = 228(10)
D4(16)+20(8) = 13*16+4 + 2*8 = 212+16 = 228(10)
Только одно число больше 228(10):
  это 11111000(2) = 128+64+32+16+8 = 248(10)

3) 11011100(2) = 128+64+16+8+4 = 220(10)
DF(16) = 13*16+15 = 208+15 = 223(10)
Количество чисел, удовлетворяющих неравенству - два (221 и 222).