Begin
writeln (' .--I"""""""""":');
writeln (' / - I..............\');
writeln ('"-O-""""""O"O""-');
end.
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.
Дискретизация информации - процесс преобразования информации из непрерывной формы представления в дискретную
СМОТРИТЕ РЕШЕНИЕ НА ПРИКРЕПЛЁННОМ ФАЙЛЕ
Мнением конечно как они его передадут если они не живые