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

//Создаем массив, наполняем......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.