Информационные процессы свойственны растительному и животному миру. Почему осенью листья опадают, весь растительный мир засыпает на время холодов?
Почему с приходом весны листья появляются опять, вырастает трава, распускаются цветы?
Почему определенные виды растений зацветают в одно и то же время года?
Это тоже результат информационных процессов. Клетка любого растения воспринимает изменения внешней среды (температуры, влажности, продолжительности светового дня) и соответствующим образом реагирует на них.
Uses Crt; var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n); Write('Для завершения работы программы нажмите Enter'); Readkey end.
Тестовое решение: Вычисление среднего арифметического последовательности действительных чисел Введите количество чисел последовательности ->5 Введите последовательность. После ввода каждого числа нажмите Enter 5.4 7.8 3.0 1.5 2.3 Среднее арифметическое введенной последовательности: 4 Для завершения работы программы нажмите Enter
Для версии Pascal.ABC.Net: var i,n:integer; a,s:real; begin Writeln('Вычисление среднего арифметического'); Writeln('последовательности действительных чисел'); Write('Введите количество чисел последовательности ->'); Readln(n); Writeln('Введите последовательность. После ввода каждого числа нажмите Enter'); s:=0; for i:=1 to n do begin Read(a); s:=s+a end; Writeln('Среднее арифметическое введенной последовательности: ',s/n) end.
1 0 1 1
1 1 0 0
1 1 1 1
0 1 1 1
0 1 0 1
0 0 0 0