Ввести N различных чисел. Найти среднее арифметическое всех чисел.

Var n,i,a:integer;

s:real;

Begin

Readln(n);

For i:=1 to N do

Begin

Readln(a);

s:=s+a;

end;

Writeln('среднее арифметическое= ',s/n:4:2);

End.

ОПЕРАТОР ЦИКЛА С ПРЕДУСЛОВИЕМ WHILE ... DO (пока…)

Оператор while ... do предназначен для реализации циклов с предусловием.

Условие выполнения тела цикла while проверяется до начала каждого шага. Поэтому если условие сразу не выполняется, то тело цикла игнорируется, и управление передается оператору, стоящему сразу за телом цикла.

Обращение к оператору while ... do переводится как «пока ... делать» и выглядит так:

while <условие> do <оператор>

В цикле while подразумевается такой алгоритм: пока условие истинно, выполняются операторы тела цикла.

Само условие может быть логической константой, переменной или логическим выражением.

При написании циклов с предусловием следует помнить следующее.

1. чтобы цикл имел шанс когда-нибудь закончиться, содержимое его тела должно обязательно влиять на условие цикла.

2. условие должно состоять из корректных выражений и значений, определенных еще до первого выполнения тела цикла.

Если условие цикла ложно цикл не выполнится ни разу!

ОПЕРАТОР ЦИКЛА С ПОСТУСЛОВИЕМ REPEAT ... UNTIL (повторять…)