Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от  –1000 до 1000. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит среднее арифметическое всех элементов массива, оканчивающихся цифрой 5. Гарантируется, что хотя бы один такое элемент в массиве есть.

Program m99;
Const N=30
Var A: array [1..30] of integer;
I, x, y, min, max: integer;
S: real;
Begin
Min:= 1000;
Max:= -1000;
For I:= 1 to 30 do
Readln (A[I]);
If A[I] mod 5=0 then
                          Begin
                          x:=x+1;
                          y:=y+A[I];
                          End;
S:= y/x;
Writeln(S);
End.