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

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

Задать свой вопрос
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.
      
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт