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

Вычислить среднее арифметическое элементов массива Y и отклоненние от среднего для каждого элемента

24.09.2009, 22:55. Показов 2135. Ответов 5
Метки нет (Все метки)

Всем доброго время препровождения)) вот возникла необходимость решить пару задачек ( сам в этом не айс как селен)
1. Дан массив Y(14) Вычислить среднее арифметическое элементов массива Y и отклоненние от среднего для каждого элемента.
2. Дан массив Z(13) расположить в массиве R сначало положительные , а затем отрицательные элименты массива Z. Буду благодарен за помощь)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.09.2009, 22:55
Ответы с готовыми решениями:

Вычислить среднее арифметическое элементов массива Y и отклонение от среднего для каждого элемента
буду очень признательна если поможете с решением) дан массив Y(14) вычислить среднее...

Для каждого массива вычислить среднее арифметическое и количество элементов
Ппмогите, пожалуйста составить программы: 1)Заданы три одномерных массива X, Y, Z. Количество...

Обработка массивов: От каждого элемента массива вычесть среднее арифметическое всех элементов массива
Ответ выводится не верно и не совпадает с условиями задачи const n = 10; var A: array of...

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

5
Почетный модератор
64257 / 47557 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.09.2009, 14:21 2
Лучший ответ Сообщение было отмечено nightly как решение

Решение

№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
24
25
26
uses crt;
const n=14;
var y:array[1..n] of real;
    i:byte;
    sr:real;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  y[i]:=20*random-9;
  write(y[i]:5:1);
 end;
writeln;
sr:=0;
for i:=1 to n do
sr:=sr+y[i];
sr:=sr/n;
writeln('Среднее=',sr:0:1);
writeln;
writeln('Отклонение от среднего:');
for i:=1 to n do
write(y[i]-sr:5:1);
readln
end.
Добавлено через 20 минут
Если первую успели списать в первом варианте, то исправьте, я заменил.
№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
31
32
33
uses crt;
const n=13;
var z,r:array[1..n] of integer;
    i,k:byte;
begin
clrscr;
randomize;
writeln('Mассив Z:');
for i:=1 to n do
 begin
  z[i]:=random(20)-9;
  write(z[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
if z[i]>0 then
 begin
  k:=k+1;
  r[k]:=z[i];
 end;
for i:=1 to n do
if z[i]<0 then
 begin
  k:=k+1;
  r[k]:=z[i];
 end;
{про нулевые ничего не сказано, их пропускаем}
writeln('Массив R:');
for i:=1 to k do
write(r[i]:4);
readln
end.
1
1 / 1 / 0
Регистрация: 24.09.2009
Сообщений: 19
25.09.2009, 15:16  [ТС] 3
а можно как нибудь менее сложно написать? просто допустим мы не проходили const n=13; randomize; z[i]:=random(20)-9; * возникнут вопросы от куда я это взял)
0
Почетный модератор
64257 / 47557 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.09.2009, 15:20 4
Цитата Сообщение от nightly Посмотреть сообщение
const n=13;
Это условие задачи, оно определяет размер массива.
Если сильно не нравится, уберите, просто везде в программе замените n на 13.
Цитата Сообщение от nightly Посмотреть сообщение
randomize;z[i]:=random(20)-9; ...
Уберите это и ввод напишите так
Pascal
1
2
3
4
5
6
7
8
9
10
11
writeln('Mассив Z:');
for i:=1 to 13 do
 begin
   write('z[',i,']=');
   readln(z[i]);
  write(z[i]:4);
 end;
clrscr;
for i:=1 to 13 do
write(z[i],' ');
writeln;
1
1 / 1 / 0
Регистрация: 24.09.2009
Сообщений: 19
25.09.2009, 15:22  [ТС] 5
пассибо! дома попробую.
1
Почетный модератор
64257 / 47557 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.09.2009, 15:23 6
А вообще, когда Вам написали решение задачи, то выкобениваться по поводу ввода-вывода данных нехорошо, хотя бы это Вы должны сами уметь делать, а то уж вообще на полную халяву перешли.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.09.2009, 15:23
Помогаю со студенческими работами здесь

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

Вычислить среднее арифметическое чётных элементов каждого столбца матрицы
Вычислить среднее арифметическое чётных элементов каждого столбца марицы A(N;M). Результаты...

Вычислить среднее арифметическое каждого столбца массива и отсортировать элементы по возрастанию
дан двумерный массив (n*n) 1)необходимо вычислить среднее арифметическое каждого столбца массива...

Для каждого из массивов определить среднее арифметическое положительных элементов
Есть одномерные материальные массивы А =i]l , В = i]m, С =i]n . . Для каждого из них определить...


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

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

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