Программирование циклических алгоритмов. Начала программирования

Опорный конспект
while (цикл-ПОКA)
repeat (цикл-ДО)
for (цикл с параметром)
Число повторений
цикла известно
В языке Паскаль имеются три вида операторов цикла:
Число повторений
цикла неизвестно

Программирование циклов с заданным условием продолжения работы
Здесь:
<условие> - логическое выражение;
пока оно истинно, выполняется тело цикла;
<оператор> - простой или составной оператор, с помощью которого записано тело цикла.
while <условие> do
begin
<оператор1>;
<оператор2>;
…
end

while ( цикл-ПОКА)
Напишите программу, которая вычисляет сумму n чисел, вводимых с клавиатуры

while ( цикл-ПОКА)
Напишите программу, которая вычисляет сумму натуральных чисел, кратных 3 и не превосходящих n. n вводится с клавиатуры.
…
While i <= n do
begin
s := s + i;
i := i + 3
end;
…
3, 6, 9, 12, 15, …, n

Программирование циклов с заданным числом повторений
После каждого выполнения тела цикла происходит увеличение на единицу параметра цикла; условие выхода из цикла - превышение параметром конечного значения.
Общий вид оператора:
for <параметр>:=<начальное_значение> to <конечное_значение> do
begin
<оператор1>;
<оператор2>;
…
end

Напишите программу, которая вычисляет сумму 5-ти чисел, вводимых с клавиатуры
for (цикл с параметром)

for (цикл с параметром)
Домашнее задание
Напишите программу, которая вычисляет среднее арифметическое n чисел, вводимых с клавиатуры. Используйте цикл for.

for (цикл с параметром)
Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное число, кратное 5.

for (цикл с параметром)
...
Max := 0
For i := 1 to n do
Begin
read(a);
if (a mod 5 = 0) and (a > max) then
max := a
End;
Writeln(max)
...