Вопрос по информатике:
Дан массив,содержащий неотрицательные целые числа,вывести среднее арифметическое элементов массива, которые делятся на 3 и на 5
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.01.2016 12:10
- Информатика
- remove_red_eye 19600
- thumb_up 19
Ответы и объяснения 2
#include
#include
int main()
{
setlocale(LC_ALL, "RUSSIAN");
const int N = 10;
int a = 0, count = 0;
unsigned int arr[N];
srand(time(NULL));
std::cout << "Массив: " << std::endl;
for (int i = 0; i < N; i++)
{
arr[i] = rand() % 100 + 1;
if ((arr[i] % 3 == 0) && (arr[i] % 5 == 0))
{
a += arr[i];
count++;
}
std::cout << std::setw(3) << arr[i];
}
std::cout << std::endl;
if (count == 0)
std::cout << "Массив не содержит элементов, удовлетворяющих условию" << std::endl;
else
{
a /= count;
std::cout << "Среднее арифметическое элементов массива, которые делятся на 3 и на 5: " << a << std::endl;
}
system("pause");
}
- 26.01.2016 04:59
- thumb_up 39
1. Современное решение
// PascalABC.NET 3.2, сборка 1472 от 08.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),1,999); a.Println;
var s:=a.Where(x->x mod 15=0);
if s.Count>0 then Writeln('Ср.арифм. кратных 15 равно ',s.Average:0:5)
else Writeln('Нет чисел кратных 15')
end.
Пример
n= 25
867 201 699 50 660 344 843 90 443 16 529 113 463 46 383 419 992 953 733 241 906 558 710 633 995
Ср.арифм. кратных 15 равно 375.00000
2. Так все еще обычно учат в школах
const
nn=100;
var
a:array[1..nn] of integer;
i,n,s,k:integer;
begin
Randomize;
Write('n=');
Read(n);
s:=0;
k:=0;
for i:=1 to n do begin
a[i]:=Random(999)+1;
Write(a[i],' ');
if a[i] mod 15=0 then begin
s:=s+a[i];
k:=k+1
end
end;
Writeln;
if k>0 then Writeln('Ср.арифм. кратных 15 равно ',s/k:0:5)
else Writeln('Нет чисел кратных 15')
end.
Пример
n=17
303 262 411 814 704 285 647 347 362 327 517 101 937 8 605 426 29
Ср.арифм. кратных 15 равно 285.00000
- 27.01.2016 13:25
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.