0 / 0 / 0
Регистрация: 03.12.2011
Сообщений: 14
1

Найти среднее арифметическое элементов массива, кратных 11

04.11.2012, 14:13. Показов 4725. Ответов 1
Метки нет (Все метки)

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -1000 до 1000. Опишите на русском или на одном из языков программирования алгоритм, который позволяет подсчитать и вывести среднее арифметическое элементов массива, кратных 11. Гарантируется ,что в исходном массиве хотя бы один элемент кратен 11.
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них

Pascal
1
2
3
4
5
6
7
8
9
10
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.
Пожалуйста напишите всю программу!!!Буду очень благодарен)))
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2012, 14:13
Ответы с готовыми решениями:

Найти среднее арифметическое, кратных 5 и кратных 3 элементов массива
В массиве A найти среднее арифметическое, кратных 5 и кратных 3 элементов массива.

Подсчитать среднее арифметическое элементов массива, кратных 3
1) подсчитать средние арифметическое элементов кратных 3 2) переписать в другой массив а затем...

Найти среднее арифметическое положительных и среднее арифметическое отрицательных элементов массива.
Дан массив вещественных чисел А(А1,А2,…,Аn). Найти среднее арифметическое положительных и среднее...

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

1
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,429
Записей в блоге: 1
04.11.2012, 14:17 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
 N=30;
 var
 a: array [1..N] of integer;
 i,x,y: integer ;
 s: real;
 begin
 for i:=1 to N do 
 Begin
  readln(a[i]);
  if A[i] mod 11 = 0 then
  Begin
    x:=x+1;
    s:=s+A[i];
  End;
 End;
 writeln('Среднее арифметическое = ',s/x:0:2);
 writeln('Таких элементов = ',x);
 end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.11.2012, 14:17
Помогаю со студенческими работами здесь

Найти среднее арифметическое элементов массива
Задан массив B, состоящий из 20 целых чисел. Разработать алгоритм и программу решения. Для решения...

Найти среднее арифметическое элементов массива
Ввести двумерный массив из nхm элементов, найти среднее арифметическое элементов массива.

Найти среднее арифметическое элементов массива
дан целочисленный массив, состоящий из 25 элементов. найти среднее арифметическое элементов...

Ввести массив из 5 элементов, найти среднее арифметическое всех элементов массива.
Здравствуйте! Помогите пожалуйста решить задачу: 1)Ввести массив из 5 эл.,найти...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru