Не парься,поймешь,это временно)))там свой принцип,спраси у информатички)
D1)прямая горизонтальная линия
2) любой из этих рисунков
Предлагаю вариант в Excel
щелкая мышью треугольнички фильтра можно управлять таблицей
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.
1, если цифровая.
()()()()()()()()()()()()()(