Одномерный массив. Посчитать средний возраст студентов группы

@Molester1337 · Регистрация: 30.10.2016

Author24 — интернет-сервис помощи студентам

Дан массив строк, каждая из которых содержит дату рождения студентов отдельной группы. Посчитать средний возраст студентов группы.

Пожалуйста, укажите на ошибку. Программа не работает, указывает на неправильный тип переменной sr. Тем не менее, если sr будет иметь типа extended или real, то результат вычислений выдает неверный. Заранее спасибо.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program z65;
const
        max=100;
var
        date:array[1..max] of string;
        vozr:array[1..max] of string;
        vozr_val:array[1..max] of integer;        sr:integer;
        sr,i,n:integer;
begin
        n:=0;
        read(n);
        for i:=1 to n do
                       begin
                        readln(date[i]);
                        writeln;
                        vozr[i]:=copy(date[i],6,4);
                        val(vozr[i],vozr_val[i]);
                        vozr_val[i]:=2017-vozr_val[i];
                       end;
        sr:=0;
        for i:=1 to n do
                                sr:=sr+vozr_val[i];
        sr:=sr/n;
        writeln(sr);
 
end.

@Dancon · 04.01.2017, 21:46

Pascal
1
sr:integer;

Вы задали его два раза.Поменяйте название переменной

@Molester1337 · 04.01.2017, 21:55 **[ТС]**

Убрал лишний

Pascal
1
sr:integer

, второй sr задал как real, в

Pascal
1
vozr[i]:=copy(date[i],6,4)

поменял 6 на 7, но все это не решило задачу. При вводе дат (например 10.12.2012, 12.12.2012 и 10.04.2009) среднее значение возрастов выдает как 672.

@Dancon · 05.01.2017, 00:00

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program z65;
Uses sysutils;
 
const
        max=100;
var
        date:array[0..max] of string;
        vozr_val_1:string;
        vozr_val_2:string;
        vozr_val_3:string;
        sr,i,n:integer;
        years,months,days,year,month,day:real;
begin
        n:=0;
        years:=0;
        months:=0;
        days:=0;
        year:=0;
        month:=0;
        day:=0;
 
        read(n);
        for i:=0 to n do
                       begin
                        readln(date[i]);
                        writeln;
                        vozr_val_1:=copy(date[i],7,4);
                        vozr_val_2:=copy(date[i],1,2);
                        vozr_val_3:=copy(date[i],4,2);
 
                        val(vozr_val_1,year);
                        val(vozr_val_2,day);
                        val(vozr_val_3,month);
                        years:=years + year;
                        months:=months + month;
                        days:=days + day;
                       end;
 
        years:=2017 - (years*365.25 + month*30.4375 + days)/(n*365.25);
 
        writeln(years);
end.

Вроде работает,и выдает средний возраст

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

Опции темы

Одномерный массив. Посчитать средний возраст студентов группы

Решение