Найти минимальный элемент в массиве.Что неправильно?
var a:array [1..31] of integer;
day,i,n,min:integer;
begin
read(n);
for i:=1 to n do
read (a[i]);
min:=(a[1]);
day:=1;
for i:=2 to n do
begin
if(min begin
min:=a[i];
day:=1;
end;end;
write(day);
end.

Объяснение:

Программы буду писать на языке Python3

Задание 1

a = int(input("Введите число")

b = a**2

c = a**3

print("Число во второй степени:",b)

print("Число в третьей степени:", c)

Задание 2

Тут я не понял что подразумевается под словом СЛОЖНЫЕ мат. выражения. В Интернете информация которую я не проходил ещё в школе. Поэтому я программу решающее простые математические выражение. Это самый простой калькулятор на языке Питон 3.

a=int(input("первое число :"))

b=int(input("выберите знак(+\-\*\/):"))

c=int(input("второе число :"))

if b == "+":

d = a+c

elif b == "-":

d = a - c

elif b == "*":

d = a * c

elif b == "/":

d = a / c

else:

print("Вы ввели неверное значение!")

print(d)

Задание 3

i = int(3) #целые числа (integer)

f = float(4.0) #дробные числа (float)

s = school #строковый тип (string)

b = True #логический тип данных (bool)

a = [1,2,3]#список

d = {1:'value', 'key':2} #словарь

print("целые числа (integer): ", i)

print("дробные числа (float): ", f)

print("строковый тип (string): ", s)

print("логический тип данных: True")

print("список: ", a)

print("словарь: ", d)

Надеюсь на все ответил верно :). Если все верно, то отметь как лучший ответ ;)

Var i,j,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to 9 do
 for j:=0 to 9 do
  begin
  s:=s+i*100+j*10+i;
  k:=k+1;
  end;
writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2);
end.

Результат:
s = 49500 k = 90 sred = 550.00

Если нужно приложение с формой, то:
помещаете на форме командную кнопку (Button) и статичный текст (StaticText).
В обработчик кнопки добавляете код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,k:integer; s:string;
begin
 s:=0; k:=0;
 for i:=1 to 9 do
  for j:=0 to 9 do
   begin
   s:=s+i*100+j*10+i;
   k:=k+1;
   end;
   s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k);
  StaticText1.Caption := s;
end;