Uses CRT;. 3. ввести с клавиатуры по одному последовательность целых чисел (конец последовательности – число 0)

Var i, s, n : Word;

Begin

ClrScr;

Write(‘n= ‘);

ReadLn(n);

s := 0;

Repeat

i := n Mod 10;

s := s + i;

n := n Div 10;

Until (n = 0);

WriteLn(‘s = ‘, s);

ReadLn;

End

3. ввести с клавиатуры по одному последовательность целых чисел (конец последовательности – число 0). Определить их сумму, максимальное и минимальное число, количество введенных чисел и их среднее арифметическое.

Пусть s – искомая сумма,

min, max – минимальное и максимальное из введенных чисел,

count – количество введенных чисел,

sred – среднее арифметическое,

n – очередное число.

Тогда алгоритм решения задачи можно описать следующим образом:

a. обнуляем сумму s ,

b. вводим первое число n,

c. если оно не равно нулю, то

1. принимаем его значение за min и max

2. количество введенных чисел count = 1

3. увеличиваем сумму на введенное число s = s + n

4. входим в цикл ввода:

d. вводим очередное число n,

e. если оно не равно нулю, то

1. количество введенных чисел увеличиваем на 1: count = count +1

2. увеличиваем сумму на введенное число s = s + n

3. если оно меньше min, то min = n,

4. если оно больше max, то max = n,

f. повторяем цикл до тех пор, пока n = 0 – это и будет условием выхода из цикла.

g. Создадим интерфейс этой задачи – взаимодействие программы с пользователем, то есть что должно выводиться на экран:

Первое число: 3

Очередное число: 8

Очередное число: 1

Очередное число: -2

Очередное число: 0

Сумма = 10

Количество чисел = 4

Min = -2

Max = 8

Среднее арифметическое = 2.50

Схема алгоритма: