ТЕРМІНОВО! ПОТРІБНО написати ці програми на мові пайтон за до функцій: 1. Дана матриця mxn. Скласти схему алгоритму та програму обробки масиву:
Знайти середнє арифметичне значення для кожного з рядків.
2. Програма створює масив записів з даними про авіарейси транспортної компанії:
номер авіарейсу, маршрут, тип літака, дистанція, тривалість польоту, ціна квитка. Відсортувати записи за номером авіарейсу і вивести список з ціною квитка не вищою, ніж заданою корустувачем програми.
3 Елементи рівностороннього трикутника пронумеровані таким чином: 1 — сторона а, 2 —радіус R1 вписаного кола (R1 = a√3/6), 3 — радіус R2 описаного кола (R2 = 2R1), 4 —площа S = a 2√3/4. Даний номер одного з цих елементів і його значення. Вивести значення інших елементів цього трикутника (у тому ж порядку).
Міжнаро́дний жіно́чий де́нь (англ. International Women's Day), повна назва Міжнаро́дний де́нь боротьби́ за права́ жіно́к і міжнаро́дний мир (рішенням ООН від 1977 року) — щорічне феміністське свято, символ боротьби за права людини для жінок, проти сексизму та гендерної нерівності, що відзначається 8 березня. Найзначніша з феміністичних дат.
Уперше відзначався 28 лютого 1909 року в США з ініціативи Соціалістичної партії Америки як «Національний день жінки». Наступного року, натхненні американським прикладом, учасниці Другої міжнародної соціалістичної жіночої конференції в Копенгагені вирішили щороку за зразком Міжнародного дня праці відзначати «День жінок», присвячений у першу чергу боротьбі за здобуття жінками виборчих прав . 19 березня 1911 року в Австро-Угорщині, Данії, Німеччині й Швейцарії уперше відбувся Міжнародний жіночий день, який протягом наступних кількох років відзначався в різні дні наприкінці лютого чи на початку березня . З початку 1920-х років у Радянському Союзі затвердилась дата 8 березня, оскільки саме в цей день 1917 року з демонстрації робітниць почалась Лютнева революція. Відтоді день відзначався переважно в країнах колишнього «радянського блоку» , доки його у 1967 році не взяли на озброєння феміністки другої хвилі . У 1977 році Генеральна Асамблея ООН запропонувала відзначати 8 березня «Міжнародний день боротьби за права жінок і міжнародний мир».
У деяких країнах, у яких відзначається день, жінкам дарують квіти та подарунки. Цей жест феміністки знаходять недоречним, оскільки вважають, що день повинен привернути увагу до гендерної нерівності. У деяких країнах відзначається подібно до західноєвропейських свят — Дня матері й Дня Валентина. Окремі діячі православної церкви і деяких інших релігійних спільнот світу не визнають Міжнародний жіночий день з огляду на його «політичне походження».
const n = 10; //В константе n указываем количество элементов в массиве
var a:array[1..n]of integer;
i,s,max,min:integer;
begin
write('Массив: '); //Вывод на экран слова "Массив: "
for i:= 1 to n do //Цикл с параметром для последовательной обработки массива
begin
a[i]:= random(21)-10; //Заполнение массива случайными числами из промежутка [-10,10]
if (a[i]>0){//Проверяем положительный элемент или нет} and (a[i] mod 2 = 0){//Проверяем чётный элемент или нет} then s:=s+1; //В переменной s будет считаться количество чётных положительных элементов при выполнении, указанных условий
write(a[i],' ') //Вывод на экран массива в строку
end;
writeln; //Переход на новыю строку
if s=0 then write('Чётных положительных элементов в массиве нет') //Вывод на экран сообщения "Чётных положительных элементов в массиве нет" и завершение программы
else //Продолжении программы при нахождении хотя бы 1-го чётного положительного элемента
begin
max:=2; //Т.к. 2 минимальное чётное положительное число, то присваиваем это значение переменной max
for i:= 1 to n do //Поиск max элемента
if (a[i]>0) and (a[i] mod 2 = 0) and (a[i]>max){//Проверяем больше текущий элемент max или нет} then max:=a[i]; //Присваиваем переменной max значение текущего элемента при выполнении, указанных условий
min:=max; //Т.к. max значение элемента массива уже найдено, то переменной min присваиваем значение переменной max
for i:= 1 to n do //Поиск min элемента
if (a[i]>0) and (a[i] mod 2 = 0) and (a[i]<min){//Проверяем меньше текущий элемент min или нет} then min:=a[i]; //Присваиваем переменной min значение текущего элемента при выполнении, указанных условий
if max=min then write ('Максимальным и минимальным чётным положительным элементом является один и тот же элемент: ',max) //Вывод на экран результатов
else
begin
writeLn('Максимальный чётный положительный элемент: ',max);//Вывод на экран результатов
write('Минимальный чётный положительный элемент: ',min)//Вывод на экран результатов
end
end
end.