Сначала производится инициализация массива, в конце - выводится на печать n.
Содержательная часть программы - эта:
n := ves[1];
For i := 1 to 14 Do
If Ves[i] < n Then
Begin
n : = ves[1]
End;
Здесь сначала n равно ves[1], затем в цикле, если ves[i] меньше n, то n присваивается равным ves[1]. Если бы было присвоение ves[i], то получился бы алгоритм поиска минимального элемента (ответ был бы 21 = min[25, 21, 23, 28, 30, 25, 31, 28, 25, 28, 30, 27, 26, 24]). Но здесь вне зависимости от значений всегда присваивается n = ves[1], поэтому в n в любой момент времени записан первый вес (25), он и будет выведен на экран.
ответ: 25
Поделитесь своими знаниями, ответьте на вопрос:
Составить блок-схемы линейных и разветвляющихся алгоритмов с обоснованием и исполнением алгоритмов: 1. найдите периметр прямоугольника abcd, если биссектриса из угла а делить сторону cd на отрезки а и в.2. составить алгоритм проверки двух параллельных прямых пересеченных третьей, если соответственные углы равны.
2. Стереофоническая (двухканальная) запись потребует 48 000 х 2= 96 000 отсчетов в секунду.
3. Каждый отсчет содержит 16-битный уровень сигнала (амплитуду); 16 бит это 16/8=2 байта.
4. Итого, для записи одной секунды сигнала потребуется 2х96 000=192 000 байт
5. Размер файла 2 Мбайта - это 2х1024х1024=2 097 152 байт.
6. Определяем максимальное время звучания при указанном размере файла:
2 097 152 / 192 000 ≈ 10.92 (секунды)