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

Найти среднее арифметическое положительных элементов массива и умножить на него все элементы массива

20.01.2016, 20:59. Показов 2215. Ответов 7
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
С клавиатуры вводится произвольный одномерный массив типа Integer (не более 10 элементов), после чего делается его контрольный вывод. Найти среднее арифметическое положительных элементов массива и умножить на него все элементы массива.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2016, 20:59
Ответы с готовыми решениями:

Умножить все элементы массива на среднее арифметическое этого массива
ребята!!!! помогите пожалуйсто!!!! очень нужно!!! процедуры и функции: Задача №12 Дан массив...

Шаблоны функций: умножить все нечётные по абсолютной величине элементы массива на среднее арифметическое его элементов
1. Реализовать на языке С++ программу, в которой оформ-лены в виде шаблонов функций (массив...

Все отрицательные элементы массива увеличить на среднее арифметическое значение положительных элементов
Очень нужна помощь! В двухмерном массиве чисел все отрицательные элемнты массива увеличить на...

Найти среднее арифметическое элементов массива и обнулить все элементы меньше среднего
Дан массив со случайными двузначными числами. Найти среднее арифметическое массива и обнулить все...

7
9 / 9 / 8
Регистрация: 08.11.2014
Сообщений: 215
Записей в блоге: 1
22.01.2016, 01:30 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program qq;
 
type
mas = array[1..10] of integer;
 
var
m : mas;
sr, count : integer;
 
begin
sr := 0;
count := 0;
for i:=1 to 10 do
     begin
          Write('Введите число: ');
          ReadLn(m[i]);
     end;
for i:=1 to 10 do
          if m[i] > 0 then 
               begin
                    count := count + 1;
                    sr := sr + m[i];
               end;
WriteLn('Среднее арифметическое: ', sr / count);
end.
0
Модератор
9917 / 5273 / 3321
Регистрация: 17.08.2012
Сообщений: 16,122
22.01.2016, 13:56 3
avraal, ТСу надо ещё
Цитата Сообщение от andrey3197 Посмотреть сообщение
умножить на него все элементы массива.
0
9 / 9 / 8
Регистрация: 08.11.2014
Сообщений: 215
Записей в блоге: 1
22.01.2016, 17:15 4
Сонный был уже
После этого
Pascal
1
2
3
4
5
6
for i:=1 to 10 do
          if m[i] > 0 then 
               begin
                    count := count + 1;
                    sr := sr + m[i];
               end;
дописать это:
Pascal
1
2
3
4
sr:=sr/count;
for i:=1 to 10 do
     sr := sr * m[i];
WriteLn('Среднее арифметическое, умноженное на все элементы: ', sr);
0
Модератор
9917 / 5273 / 3321
Регистрация: 17.08.2012
Сообщений: 16,122
22.01.2016, 17:36 5
avraal, спасибо, повеселили. Конечно, "и умножить на него все элементы массива" можно и так трактовать, как Вы написали, однако, к Вашему умножению больше подходит "и умножить его на все элементы массива". По-моему, всё же как-то так:
Pascal
24
25
26
27
28
29
30
31
sr:=sr/count;
WriteLn('Среднее арифметическое: ', sr);
WriteLn('Элементы массива, умноженные на среднее арифметическое:');
for i:=1 to 10 do
     begin
          m[i] := sr * m[i];
          write(m[i], ' ')
     end;
Ах, да. По заданию там ещё контрольная печать введённых данных. С 18 по 23 строки заменить на
Pascal
18
19
20
21
22
23
24
25
26
writeln('Исходный массив:');
for i:=1 to 10 do
          if m[i] > 0 then 
               begin
                    write(m[i], ' ');
                    count := count + 1;
                    sr := sr + m[i];
               end;
writeln;

Не по теме:

:rofl:

0
9 / 9 / 8
Регистрация: 08.11.2014
Сообщений: 215
Записей в блоге: 1
22.01.2016, 17:39 6
Cyborg Drone, надо переставать программировать ночью
0
Cyborg Drone
22.01.2016, 17:47
  #7

Не по теме:

Нет... Можно продолжать... Не мы тому виной, что нынешние составители задач свои мысли корректно выражёвывать не умей. Формально оба решения верны - и моё, и Ваше. =-O

0
avraal
22.01.2016, 17:55     Найти среднее арифметическое положительных элементов массива и умножить на него все элементы массива
  #8

Не по теме:

Cyborg Drone, хах, да

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2016, 17:55

Найти среднее арифметическое положительных элементов массива и сред.арифм. элементов больших единицы второго массива
Для каждой строки матрицы A (6×5) найти среднее арифметическое положительных элементов, а для...

Найти наибольшее значение массива и умножить на него все элементы
Составить программы. C++. 1. Заданы два массива – А(5) и В(5). В каждом из массивов найти...

Заменить все положительные элементы массива на среднее арифметическое элементов массива
2.Дан массив из N элементов, заданных случайным образом на промежутке (-30;20). Заменить все...

Найти среднее арифметическое элементов массива, и обнулить все элементы, меньшие найденного значения
Программа должна осуществлять ввод массива из 80 вещественных элементов (либо по выбору...


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

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

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