Var
n, k, s: integer;
begin
s := 0;
k := 0;
repeat
write('Введите целое число = ');
readln(n);
if n > 0 then begin
k := k + 1;
s := s + n;
end
until n = 0;
writeln('Среднее арифметическое = ', s / k);
end.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
число: ЦЕЛ;
УКАЗ
число := Приём.Число();
ЕСЛИ число = 0 ТО Вывод.Цепь("^Ноль.") ИНАЧЕ
ЕСЛИ число < 0 ТО Вывод.Цепь("^Отрицательное ")
ИНАЧЕ Вывод.Цепь("^Положительное ") КОН;
ЕСЛИ ЧЕТ(число) ТО Вывод.Цепь("чётное число.")
ИНАЧЕ Вывод.Цепь("нечётное число.") КОН
КОН
КОН Задание.
Каждую переменную обозначим отдельной буквой.
Вычислить значение выражения 328 + A416 = ? 2.
см ворд