ОЧЕНЬ СРОЧНО!!! ПОМОГИТЕ! Дан целочисленный массив из 30 элементов. Элементы массива...

Question

ОЧЕНЬ СРОЧНО!!! ПОМОГИТЕ! Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -1000 до 1000. Опишите на языке программирования (паскаль) алгоритм, который находит и выводит среднее арифметическое всех элементов массива , оканчивающихся цифрой 5. Гарантируется, что хотя бы один такой элемент в массиве есть.
const N=30;
Var a: array [1..N] of integer;
i,x,y: integer;
s: real;
begin
for i:=1 to N do readln(a[i]);
.....
end.
Запрещено использовать переменные , не описанные ниже, но разрешено не использовать часть из них.
Помогите, пожалуйста!!!!!!!! Только не пишите мудрено, т.к. я в 10 классе, мне нужна такая нормальная адекватная программа)))

Comments

В ответ выводить всегда целые значения или с несколькими цифрами после запятой?

---

На сколько я понимаю нужны целые

Answer 1

Var
 a:array[1..30]of integer;
 i,x,y,n:integer;
 s:real;
begin 
for i:=1 to 30 do readln(a[i]);
 for i:=1 to 30 do 
begin 
if a[i]mod 10=5
then  begin 
 y:=y+a[i]; 
 inc(x); 
end;
end; 
write(y/x:0:0);
readln;
end.

Comments

спасибо большое)))

Answer 2

Const N=30;
Var a: array [1..N] of integer;
i,x,y: integer;s: real;
begin
for i:=1 to N do readln(a[i]);
s:=0; x:=0;
for i:=1 to N do
 if abs(a[i]) mod 10 = 5 then begin x:=x+1; s:=s+a[i]; end;
writeln('Среднее = ',s/x);
end.

Comments

abs зачем?

---

тут не сказано что всегда положительные

---

а упс) извини

---

не так понял

---

но можно и без модуля)

---

Спасибо!))))

---

Пожалуйста. Если диапазон от -1000 до 1000, то модуль (abs) нужно обязательно.