СРОЧНО!!!! РЕШАЕТСЯ ОЦЕНКА
что не так с программой?Дан целочисленный массив из 40 элементов. Элементымассива могут принимать значения от - 10000 до 10000.Написать алгоритм, который находит и выводитсреднее арифметическое всех отрицательных элементовмассива, оканчивающихся цифрой 7. Гарантируется,что хотя бы один такое элемент в массиве есть.Исходные данные объявлены так, как показано ниже.Запрещается использовать переменные, не описанныениже, но разрешается не использовать часть из них.const N=40;var a: array [1..N] of integer;i, s, r, x: integer;sr: real;beginfor i:=1 to N do readln(a[i]);s:=0;r:=0;for i:=1 to N doif (a[i] mod 10 =7)and(a[i]<0)and(a[i]in[-1000..-1])thenbegins:=s+a[i];r:=r+1;end;if s=0 thenwriteln('net')elsebeginsr:=s/r;writeln('sr=',sr);end;end.