Напишите прогрумму, которая по месяцу, будет выводить его название 1-январь 2-февраль и тд

Var
a:integer;
begin
write('Введите номер месяца:');read(a);
case a of
1: write('Январь');
2: write('Февраль');
3: write('Март');
4: write('Апрель');
5: write('Май');
6: write('Июнь');
7: write('Июль');
8: write('Август');
9: write('Сентябрь');
10: write('Октябрь');
11: write('Ноябрь');
12: write('Декабрь');
end;
end.

program test;

const

 N = 15;  {Число саженцев на 1 кв.м.}

 PI = 3.14; {Число Пи.}

 

var

 R : real;  {Радиус клумбы}

 l : real;  {Длина ограды}

 S : real; {Площадь клумбы}

 k : integer;{Число потребуемых саженцев}

begin

Write('Введите радиус клумбы  (в метрах): ');

ReadLn(R);

{Вычисляем длину окружности}

l := 2 * PI * R;

{Вычисляем площадь клумбы}

S := Pi * R * R;

{Вычисляем число саженцев для посадки}

k := Round(Int( S * N ));

{Печатаем округленный до бл. целого результат}

WriteLn('Нужно ', k, ' саженцев.');

WriteLn('Длина ограды - ', l:3:2, ' метров')

end.

Объяснение:

#! /usr/bin/env python3

#! encoding: utf-8

from random import randint

# Формируем одномерный массив длиной 100 элементов

# с числами от 0 до 100

a = [ randint(0,100) for _ in range(100) ]

_min = a[0]; mn = 0

_max = a[0]; mx = 0

# Просматриваем все элементы массива

for i in range( len(a)) :

# Если находим что-то меньшее, чем найденное раньше,

if a[i] < _min :

 # Запоминаем этот элемент

 _min = a[i]

 # И его порядковый номер тоже запоминаем

 mn = i

 

# Точно так же поступаем с найденным большим элементом

elif a[i] > _max:

 _max = a[i]

 mx = i

 

print('Массив такой: ', a)

print('Минимальный элемент  - ', _min)

print('Максимальный элемент - ', _max)

if mn < mx :

print('Минимальный ', end='')

else:

print('Максимальный ', end='')

print('элемент встретился раньше')

Объяснение: