Циклы в Паскале

[Антонина]

Помогите разобраться с задачами ( я новичёк в программировании) и желательно, извиняюсь за наглость , с объяснениями.
1) Дано n вещественных чисел (n=50). Найти максимум этих чисел.

2) Дано n вещественных чисел (n=30). Определить порядковый номер того из них, который наиболее близок к своему номеру. (Считать, что такое число единственное).

[namomelkor]

девушка а вы пробовали почитать книги по паскалю или делфи для начинающих там такие вопросы подробно описаны.

[Антонина]

девушка а вы пробовали почитать книги по паскалю или делфи для начинающих там такие вопросы подробно описаны.

Пробовала. Одно дело ТЕОРИЯ, а другое дело ПРАКТИКА. Спасибо за помощь.

[Хыиуду]

Первое не буду описывать. Ну это уж слишком просто, эта задача всегда приводится в пример как одна из первых задач с циклами и массивами. В двух словах: пройти в цикле по массиву и сравнить некий "максимум", который вначале равен первому числу, со всеми остальными. Если очередное число больше "максимума", оно становится новым максимумом.
Вторая задача - чуточку поинтереснее, так что можно и описать
min_i=1;
for i:=1 to N do
if abs(i-mas)<abs(min_i-mas[min_i])
then min_i:=i;
Вот, собственно, и все. Первая задача решается точно так же, только условие другое

[Oleg_Rus]

1.
for i:=1 to n do
Sum:=Sum+mas;

после этого в переменной sum будет сумма всех элементов.