Сначала производится инициализация массива, в конце - выводится на печать 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
ответ: 2 (нажав 10 раз на стрелку вправо курсор окажется после второго пробела перед буквой r, нажав 7 раз на Delete удалим последовательно rrrttt и лишний пробел)
Есть 4 клавиши со стрелками (клавиши управления курсором): стрелка влево (назад), стрелка вправо (вперёд), стрелка вверх и стрелка вниз.
Клавиша Backspace (обычно находится над клавишей Enter, иногда обозначается стрелкой направленной влево) — используется для удаления символа, находящихся перед курсором (слева от курсора).
Клавиша Delete (иногда обозначается Del) — используется для удаления символа, находящихся за курсором (справа от курсора).
begin
write('Введите a, b >>');
readln(a, b);
c:=sqrt(sqr(a)+sqr(b));
writeln('c = ', c);
s:=a*b/2;
writeln('s = ', s);
end.