На питоне 1) Написать модуль работы с датами. (5 любых команд) 2) Определить расстояние в днях между - id1609649220220318 от kamilyusupov123 18.03.2022 21:33

Question

Информатика: На питоне 1) Написать модуль работы с датами. (5 любых команд) 2) Определить расстояние в днях между двумя произвольными датами. 3) Вывести календарь на произвольный год 4) Определить, какая из двух дат Позже. 5) Дана произвольная дата. Определить день недели. 6) Дана произвольная дата. Рассчитать, какая ей соответствует дата по старому стилю (в юлианском календаре) 7) Дана дата. Определить, какая будет дата через п дней. 8) Рассчитать биоритмы человека на заданный год с указанием максимумов, минимумов

kamilyusupov123 · Accepted Answer

Const n=12;
var
a:array[1..n] of integer;
i,j,t:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i],' ')
end;
Writeln;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>a[j+1] then
begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end;
Writeln('Отсортированный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln
end.

Пример:
Исходный массив:
-6 -11 -1 -24 -15 23 14 -13 -5 3 17 -21
Отсортированный массив:
-24 -21 -15 -13 -11 -6 -5 -1 3 14 17 23

MOGZ ответил