Question

Найти среднее арифметическое элементов массива кратных 5.
Паскаль.

Answer 1

//Создаем массив, наполняем...
...

Summa:=0;
counterTwo := 0;
for counter := 1 To N Do
       if (Massive[counter] mod 5 = 0) then 
                                                          begin
                                                          Summa:= Summa + Massive[counter];
                                                          counterTwo := counterTwo + 1;
                                                          end;
Writeln(Summa/counterTwo);
readln()
end.