#python 3.6
nomer = int(input())
if nomer in range(1, 3) or nomer==12:
print('Зима')
elif nomer in range(3, 6):
print('Весна')
elif nomer in range(6, 9):
print('Лето')
elif nomer in range(9, 12):
print('Осень')
else:
print('Ошибка')
Добавь модуль Math, создай на форме Label и после implementation <span>{$R *.dfm} вставь
procedure TForm1.FormCreate(Sender: TObject);
const n=10;
var a:array[1..n] of integer;
i,mi,ma,s:integer;
begin
randomize;
s:=0;
ma:=1;
mi:=1;
for i:=1 to n do begin
a[i]:=random(20)-10;
if a[i]>a[ma] then ma:=i
else if a[i]<a[mi] then mi:=i;
label1.caption:=label1.caption + inttostr(a[i]) + ' ';
end;
for i:=min(ma,mi) to max(ma,mi) do s:=s+a[i];
label1.caption:=label1.caption + #13 + inttostr(s);
<span>end;</span></span>
Program n_1;
var i, k, n:integer; a: array [1..40] of integer;
begin
readln(n);
randomize;
for i:=1 to 40 do begin
a[i]:=random(100);
if a[i]>=n then k:=k+1;
end;
writeln(k);
end.
_____
Поставил диапазон генерации чисел от 0 до 99 т.к. в условии о нем не было сказано ничего.
При перемещении формулы =A$6+$D8 из ячейки C4 в ячейку E1 она трансформируется в формулу =C$6+$D5
Первый ребус сорока
Второй ребус синица