[QMike]

Привет всем. Из-за того, что военкомат заставил проходить мед.обследование в поликлинике, были пропущены некоторые пары по программированию. Думаю, что здесь кто-нибудь поможет мне с заданиями и объяснит что и почему. Программы выполнять в консоли, для вас они будут скорей всего простыми, а вот для меня....увидим
Вот задания:
1. Составьте программу позволяющую вводить с клавиатуры 6 целых чисел и определяющую наименьшее из них.
2. Составьте программы для выполнения задания 1, но с использованием других (по сравнению с заданием 2) операторов цикла.
3. Составьте программу позволяющую вводить с клавиатуры числа и определяющую их среднее геометрическое. Среднее геометрическое n чисел – корень n-й степени из произведения этих чисел. Программа прерывает работу, если введено неположительное число.
4. Найти сумму ряда 1/1*4 + 1/4*7 + 1/7*10... для 20 слагаемых.
5. Составить программу получения всех совершенных чисел меньших заданного числа n. Число называется совершенным, если равно сумме всех своих положительных делителей, кроме самого этого числа. Например, 28=1+2+4+7+14.

Надеюсь на помощь

[QMike]

Очень прошу, помогите

[Страдалецъ]

Прежде чем объяснять, хотелось бы определится с вашим уровнем знаний.
Можете объяснить, что делает код который я написал:

Код:

Var Val,i: Integer;
begin 
 for i := 1 to 6
 do ReadLn(Val); 
end.

[QMike]

при числе от 1 до 6 сделать вывод VAl

[Страдалецъ]

Уже неплохо, только не вывод а ввод.
Ну а тут, что я написал?:

Код:

Var Val,i,Min: Integer;
begin 
 Min := 0;
 for i := 1 to 6
 do begin
     ReadLn(Val); 
     if Val < Min then Min := Val;
     end;
end.

[QMike]

как я понял нахождение минимального из 6 чисел