===== PascalABC.NET =====
begin
var a := ReadArrInteger(3);
a.Println;
var (mx, mn) := (a.Max, a.Min);
a.Transform(p -> p = mn ? mx : p);
a.PrintLines
end.
Ответ : день(5+6+15+30) самое наименьшее
Var
i,k:Integer;
Begin
for i:=10 to 99 do
if (i mod 10 = 5) or (i mod 10 = 0) then k:=k+1;
Writeln(k);
end.
Вывод рекуррентной формулы - в прилагаемом файле.
Var
n, i, c : integer;
a : array [1..1000] of integer;
begin
read (n);
for i := 1 to n do read (a[i]);
for i := 1 to n div 2 do
begin
c := a[i*2];
a[i*2] := a[i*2-1];
a[i*2-1] := c;
end;
for i := 1 to n do
write (a[i], ' ');
end.