---

program Exercise1;
const
  a: array[1..7] of integer = (1205, 1350, 1170, 1320, 1220, 1310, 1180);
var
  i, sum: integer;
  avg: real;
begin
  sum := 0;
  for i := 1 to 7 do
    sum := sum + a[i];
  
  avg := sum / 7;
  
  writeln('Исходные результаты измерений (кг/м³):');
  for i := 1 to 7 do
    write(a[i], ' ');
  writeln;
  
  writeln('Средняя плотность раствора: ', avg:0:2, ' кг/м³');
end.




program Exercise2;
var
  files: array[1..6] of integer;
  i, sum: integer;
  sum_kb, avg_b: real;
begin
  sum := 0;
  writeln('Введите размеры 6 файлов в байтах (от 100 до 2000):');
  for i := 1 to 6 do
  begin
    write('Файл ', i, ': ');
    readln(files[i]);
    sum := sum + files[i];
  end;
  
  sum_kb := sum / 1024;
  avg_b := sum / 6;
  
  writeln;
  writeln('Исходный массив размеров файлов (в байтах):');
  for i := 1 to 6 do
    write(files[i], ' ');
  writeln;
  
  writeln('а) Суммарный размер файлов: ', sum_kb:0:2, ' Кб');
  writeln('б) Средний размер файла: ', avg_b:0:2, ' байт');
end.


program Exercise3;
var
  a: array[1..40] of integer;
  i, count_odd, sum_odd, sum_le10, sum_div3: integer;
  avg_odd: real;
begin
  randomize;
  
  sum_odd := 0;
  count_odd := 0;
  sum_le10 := 0;
  sum_div3 := 0;
  
  writeln('Исходный массив случайных чисел:');
  for i := 1 to 40 do
  begin
    a[i] := random(21); // Диапазон [0..20]
    write(a[i], ' ');
    
    // а) Среднее арифметическое нечетных чисел
    if a[i] mod 2 <> 0 then
    begin
      sum_odd := sum_odd + a[i];
      count_odd := count_odd + 1;
    end;
    
    // б) Сумма чисел, не превышающих 10
    if a[i] <= 10 then
      sum_le10 := sum_le10 + a[i];
      
    // в) Сумма чисел, кратных 3
    if a[i] mod 3 = 0 then
      sum_div3 := sum_div3 + a[i];
  end;
  writeln;
  writeln;
  
  if count_odd > 0 then
    avg_odd := sum_odd / count_odd
  else
    avg_odd := 0;
    
  writeln('Результаты:');
  writeln('а) Среднее арифметическое нечетных чисел: ', avg_odd:0:2);
  writeln('б) Сумма чисел, не превышающих 10: ', sum_le10);
  writeln('в) Сумма чисел, кратных 3: ', sum_div3);
end.