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

Обработка массивов: От каждого элемента массива вычесть среднее арифметическое всех элементов массива

09.12.2013, 21:32. Показов 2782. Ответов 1
Метки нет (Все метки)

Ответ выводится не верно и не совпадает с условиями задачи
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const n = 10;
var
 A: array [ 1 .. n ] of integer;
 i, znachenie, count: integer;
 sred_arifm, sum: real;
begin
 
for i:=1 to n do begin
     write('a[',i,']=');readln(a[i]);
end;
 
write('Введите значение:');readln(znachenie);
 
sum:=0;count:=0;
for i:=1 to n do
 if a[i] > znachenie then begin
     inc(count);
     sum:=sum+a[i];
end;
 
sred_arifm:=sum/count;
write('Среднее арифметическое ... =',sred_arifm:3:2);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2013, 21:32
Ответы с готовыми решениями:

Вычесть из каждого элемента массива среднее арифметическое отрицательных элементов
Со стандартного потока ввода данных считываются значения одномерного массива размером 20...

Обработка одномерных массивов. Определить среднее арифметическое всех элементов массива
Массив предназначен для хранения школьных оценок двадцати человек. С помощью счетчика случайных...

Вычесть из каждого элемента массива его среднее арифметическое
Задание: Вычесть из каждого элемента массива его среднее арифметическое Условия: Осуществить...

В массиве вычислить среднее арифметическое и вычесть его из каждого элемента массива.
Файлы. Работа с одномерными массивами Постановка задачи 1 Прочитать из файла два одномерных...

1
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,426
Записей в блоге: 1
10.12.2013, 14:36 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
26
27
28
29
30
const n = 10;
var
 A: array [ 1 .. n ] of integer;
 i, znachenie, count: integer;
 sred_arifm, sum: real;
begin
 
for i:=1 to n do begin
     write('a[',i,']=');readln(a[i]);
end;
 
write('Введите значение:');readln(znachenie);
 
sum:=0;count:=0;
for i:=1 to n do
 if a[i] > znachenie then begin
     inc(count);
     sum:=sum+a[i];
end;
 
sred_arifm:=sum/count;
writeln('Среднее арифметическое ... =',sred_arifm:3:2);
writeln('Преобразованный массив');
For i:=1 to n do
Begin
  //чтобы вычитать придётся округлять среднее арифметическое или измените тип элементов массива
  A[i]:=A[i]-round(sred_arifm);
  write(A[i]:4);
End;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2013, 14:36
Помогаю со студенческими работами здесь

Найти среднее арифметическое значение массива и вычесть его из всех элементов
2. Ввести массив A(N). Найти среднее арифметическое значение массива. Из четных элементов массива...

Вычесть из всех элементов массива среднее арифметическое всех его элементов
Заполнить массив из 20 элементов целыми случайными числами от 1 до 20, вывести его на экран....

На место наименьшего элемента массива записать среднее арифметическое всех элементов массива
дан массив V(b1, b2, ..., b30). В элемент bi, содержащий наименьшее значение, записать среднее...

Из каждого положительного элемента массива А 4×5 вычесть, а к каждому отрицательному элементу прибавить среднее значение элементов данной строки.
Задача: Из каждого положительного элемента массива А 4×5 вычесть, а к каждому отрицательному...


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

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

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