подсчитать количество частей в массиве A[1...10] кратных 6 и выписать среднее

Подсчитать количество частей в массиве A[1...10] кратных 6 и выписать среднее арефметическое

Задать свой вопрос
Езжев Роман
на каком языке программирования?
1 ответ
//PASCAL ABC.NET

var  i, a: integer;  arr: array [1..10] of integer;
begin  for i := 1 to 10 do    read(arr[i]);  for i := 1 to 10 do  begin    if arr[i] mod 6 = 0 then      a += arr[i];  end;  Write(a/10);end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт