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

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


textual

Код к задаче: «Одномерный массив. Посчитать средний возраст студентов группы - Free Pascal»

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.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.750 из 5



Похожие ответы
  1. 1. Значение элементов в обратном направлении 2. Значение элементов с четными индексами 3. Значение элементов с нечетными индексами 4. Значение парных элементов массива 5. Значение нечетных элементов массива 6. Значения элементов массива> 50 7. Значение элементов массива <50

  1. Сформировать одномерный массив из значений элементов матрицы, расположенных на главной диагонали

  1. Дана вещественная матрица X размера 6×8. В каждом столбце найти наибольшее значение и сформировать одномерный массив из найденных значений.

  1. Дан целочисленный массив a(n,n),n=10. Выделить в отдельный одномерный массив элементы, кратные 5. Найти среди них максимальный.

  1. Друзья выручайте!!! Горю!!! Сроки сдачи жмут... Одномерный массив размерностью 2n, где n — целое положительное число, заполнен случайными положительными целыми числами. Изменить массив по следующему правилу: в первую ячейку поместить модуль разности между значениями первой и второй ячеек, во вторую — модуль разности между значениями второй и третьей ячеек, … в последнюю — модуль разности между значениями последней и первой ячеек. Определить, сколько понадобится таких преобразований, прежде чем массив будет состоять из одних нулей.

  1. Нужен код для командного приложения на Лазарусе и если возможно комментарии...

  1. Дан двумерный массив. Найти максимум среди элементов побочной диагонали, указав номера строки и столбцы, на пересечении которых он находится.

  1. Итак, задача: Сформировать одномерный массив, заполнив его случайными числами латинского алфавита, отсортировав по правилу: сначала идут строчные гласные, затем прописные согласные, потом строчные согласные, а после прописные гласные. PS. Строчные буквы - маленькие буквы, прописные - большие (заглавные) Очень надеюсь на вашу помощь!

  1. Дан двумерный массив. Найти максимальный элемент и проверить сколько раз он встречается в каждой строке?