Вфайле input_1.txt записаны 7 чисел (в столбик). увеличить числа в 1,5 раза, переставить их в порядке убывания и записать в файл output_1.txt.​

Var

День,Месяц:byte;

Begin

Write('№ дня = ');ReadLn(День);

Var C:=365-День;

Write('№ месяца = ');ReadLn(Месяц);

Case Месяц of

2:C:=C-31;

3:C:=C-59;

4:C:=C-90;

5:C:=C-120;

6:C:=C-151;

7:C:=C-181;

8:C:=C-212;

9:C:=C-243;

10:C:=C-273;

11:C:=C-304;

12:C:=C-334

End;

if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')

else

Case C mod 10 of

1:Write('До нового года остался ',C,' день');

2..4:Write('До нового года осталось ',C,' дня');

0,5..9:Write('До нового года осталось ',C,' дней')

End

End

Объяснение:

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure Cheburek(s:string);
begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** ',s,' матрица [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var s1:='сортированный вектор ср.значений нечетных столбцов';
  Writeln(s1);
  a.Cols.Select(x->x.Average).Where((x,i)->i.IsEven).Sorted.Println;
  Writeln(s1.Length*'-');
end;

begin
  Cheburek('первая');
  Cheburek('вторая');
end.

Пример
Количество строк в матрице: 4
Количество столбцов в массиве: 8
*** первая матрица [4,8] ***
  98 -64 -30  84  -6  11   4   7
 -45  23  55  47  67  87  70 -64
  40  20  91 -27 -12  42 -49  10
 -59 -79   5 -77 -59 -44  -4 -10

сортированный вектор ср.значений нечетных столбцов
-2.5 5.25 8.5 30.25

Количество строк в матрице: 6
Количество столбцов в массиве: 11
*** вторая матрица [6,11] ***
 -98 -40 -42  81  39  28  -3 -24 -33  79  13
  22  26 -79  90  93  46  94  83  -1 -13 -18
 -21 -44  85  60  43 -26 -94 -19 -34  99 -72
 -35  46   8  30  88  -4 -87 -76  15 -94   9
 -70  29  83 -79 -69  12 -24 -53 -27  96 -97
  19  80 -98  96  79  84 -76 -29  85  14  14

сортированный вектор ср.значений нечетных столбцов
-31.6666666666667 -30.5 -25.1666666666667 -7.16666666666667 0.833333333333333 45.5