Дан файл, содержащий размерность одномерного вещественного массива и его содержание. Написать программу, создающую и инициализирующую массив указанными данными. Содержимое массива вывести на экран. Содержимое файла заполнить самостоятельно.

Цель данного проекта " Мир без интернета "это установить уровень Интернет-зависимости  учащихся школы, а так же выявить преобладающие типы зависимости.

Задачи у них в общем сумме 6

Задачи:

1)Определить как часто и сколько времени подростки тратят на пользование Интернетом.

2)Выявить  сущность и основные признаки Интернет-зависимости.

3)Проанализировать основные причины возникновения Интернет – зависимости.

4)Установить, кто контролирует процесс пользования Интернетом подростками и есть ли вообще такой контроль.

5)Провести социальный опрос на выявление интернет-зависимости.

6)Составить рекомендации по сохранению здоровья при работе детей за компьютером в школе и дома.

Объяснение:

Решение больше математическое получилось с выводом формулы, там уж сами выберете как вам лучше.
На каждый следующий день спортсмен пробегает в

большее расстояние чем в предыдущий.
Т.е. если обобщить:

Расстояние, которое спортсмен пробегает каждый n-ный день.
В итоге, у нас получилась геометрическая прогрессия, где


Чтобы найти сумму первых n членов геометрической прогрессии:

В программе пишем:
_________________________
var
i:integer;
k:double;
begin
k:=1.1;
for i:=1 to 6 do k:=k*1.1;
writeln(100*(k-1):0:2);
end.
__________________________