Надо сделать в delphi 7 даны основания и высоты двух равнобедренных трапеций. найти сумму их периметров. (определите функцию для расчета периметра равнобедренной трапеции по ее основе и высоте.)

Цикл - это повторение одного или нескольких действий до достижения определенного результата.

Цикл с параметром - это когда перед выполнением этих действий заранее известно, сколько раз они повторятся (эта циферка и есть параметр) .

Цикл с условием - это когда количество повторов зависит от того, выполняется или не выполняется какое-либо условие.

Цикл с предусловием - это когда сначала проверяешь, выполняется ли это самое условие, а потом, в зависимости от результата проверки, выполняешь или не выполняешь действие еще раз.

Цикл с постусловием - сначала выполняешь действие (ну, например, делаешь глоток воды из стакана) , потом проверяешь выполнение условия (утолил ли жажду) , и в зависимости от выполнения условия повторяешь или не повторяешь действие.

Если грубо у предусловие - сначала проверяешь, потом выполняешь; постусловие - сначала выполняешь, потом проверяешь.

В объяснении

Объяснение:

Из задания не совсем ясно, необходимо ли в программе производить ввод массиве, если нет, то решение следующее:

# Максимальный элемент массива

_max = max(d)

# Порядковый номер элемента

_index = d.index(_max)

# Вывод

print(_max, _index)

Если запрещено использовать встроенные функции, то:

# первый элемент - максимальный

_max = d[0]

_index = 0

# Цикл по всем элементам

for i, x in enumerate(d):

   # Если элемент больше максимального

   if x > _max:

       _max = x

       _index = i

# Вывод

print(_max, _index)

Если необходимо произвести и ввод, то в начале задачи надо дописать:

n = input('Введите n: ')

d = []

for x in range(n):

   d.append(input('Введите число: '))