Зачёт по информатике Умяров Ильдар задание №1

1)Дан целочисленный массив из 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]< A[N] then

                      Begin

                      x:=x+1;

                      y:=y+A[I];

                      S:=y/x;

Write(S);

End;

End.