Найти сумму и среднее арифметическое n (n<=k) самых больших элементов массива.

@blackJKE · Регистрация: 20.11.2009

Студворк — интернет-сервис помощи студентам

Задан массив вещественных чисел М длины k. Найти сумму и среднее арифметическое n (n<=k) самых больших элементов массива. С клавиатуры вводятся числа n, k и массив М. Результат выводится на экран в удобном для восприятия виде.
a. Реализовать сортировку в виде процедуры, подсчет среднего арифметического в виде функции. Заранее продумать интерфейс функций и процедур.
b. Дополнить программу таким образом, чтобы она могла выполнять описанные выше действия со строками матрицы.

Помогите решить такую задачу, очень благодарен, я и сам попытаюсь решить но потом сравню, в другими решениями.

@Puporev · 20.11.2009, 17:26

самых больших элементов массива.

И сколько их?

@blackJKE · 21.11.2009, 20:01 **[ТС]**

ну вроде среднее арифметическое всех элементов

@Puporev · 21.11.2009, 20:04

Сообщение от blackJKE

Найти сумму и среднее арифметическое n (n<=k) самых больших элементов массива.

Я вообще-то про это.

@Snoopy · 21.11.2009, 20:05

и насколько больших?

@blackJKE · 22.11.2009, 08:35 **[ТС]**

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

@blackJKE · 29.11.2009, 14:57 **[ТС]**

вообщем с задачей разобрался написал код, всё работает но не могу понять почему при сложении максимумов он складывает первые элементы массива а не максимумы. Например:
Vvedite kol-vo elementov:
4
Vvedite mssiv chisel
1
3
8
12
vvedite kol-vo maximumov:
3
maximumi:
12 8 3
summa maximumov = 12
те сумма 1,3 и 8

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
type
mas=array[1..200] of integer;
var
a,b,m,n,i:integer;
X:mas;
procedure sort (e,r:integer;Z:mas);
var
k,l,A:integer;
begin
     for k:=1 to e do
         for l:=2 to e do
             if Z[l]>Z[l-1] then
                begin
                     A:=Z[l];
                     Z[l]:=Z[l-1];
                     Z[l-1]:=A;
                end;
writeln('maximumi: ');
     for l:=1 to r do
     write(Z[l]:6);
readln;
end;
function sum (v:integer;N:mas):integer;
var
x,y:integer;
begin
     for y:=2 to v do
     N[y]:=N[y]+N[y-1];
     sum:=N[v];
end;
function sred(c,q:integer):integer;
var
e:integer;
begin
e:=round(c/q);
sred:=e;
end;
Begin
writeln('Vvedite kol-vo elementov: ');
readln(n);
writeln('Vvedite mssiv chisel');
for i:=1 to n do
    readln(X[i]);
writeln('vvedite kol-vo maximumov:');
readln(m);
sort(n,m,X);
a:=sum(m,X);
write('summa maximumov = ',a);
readln;
b:=sred(a,m);
write('sredne arifmeticheskoe = ',b);
readln;
End.

@Puporev · 29.11.2009, 15:14

f

Pascal
1
2
3
4
5
6
7
8
9
unction sum (v:integer;N:mas):integer;
var
x,y,s:integer;
begin
s:=0;
for y:=1 to v do
s:=s+N[i];
sum:=s;
end;

@blackJKE · 29.11.2009, 20:24 **[ТС]**

изменил код не помогает теперь получается вот так:
Vvedite kol-vo elementov:
4
Vvedite mssiv chisel
1
3
8
12
vvedite kol-vo maximumov:
3
maximumi:
12 8 3
summa maximumov = 36

@Puporev · 30.11.2009, 06:27

blackJKE, Посмотрите внимательно свой код, думаю у Вас при подсчете суммы вместо N[i] написано N[1];

@blackJKE · 30.11.2009, 13:39 **[ТС]**

да нет вроде все верно( еще раз весь код:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
type
mas=array[1..200] of integer;
var
a,b,m,n,i:integer;
X:mas;
function sum (v:integer;N:mas):integer;
var
x,y,s:integer;
begin
s:=0;
for y:=1 to v do
s:=s+N[i];
sum:=s;
end;
procedure sort (e,r:integer;Z:mas);
var
k,l,A:integer;
begin
     for k:=1 to e do
         for l:=2 to e do
             if Z[l]>Z[l-1] then
                begin
                     A:=Z[l];
                     Z[l]:=Z[l-1];
                     Z[l-1]:=A;
                end;
writeln('maximumi: ');
     for l:=1 to r do
     write(Z[l]:6);
readln;
end;
function sred(c,q:integer):integer;
var
e:integer;
begin
e:=round(c/q);
sred:=e;
end;
Begin
writeln('Vvedite kol-vo elementov: ');
readln(n);
writeln('Vvedite mssiv chisel');
for i:=1 to n do
    readln(X[i]);
writeln('vvedite kol-vo maximumov:');
readln(m);
sort(n,m,X);
a:=sum(m,X);
write('summa maximumov = ',a);
readln;
b:=sred(a,m);
write('sredne arifmeticheskoe = ',b);
readln;
End.

@blackJKE · 03.12.2009, 13:02 **[ТС]**

всё разобрался всем спасибо за помощь ))

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в конфигурации КА2. Данные берутся из регистра сведений, по. . .

@blackJKE 0 / 0 / 0 Регистрация: 20.11.2009 Сообщений: 16

	Найти сумму и среднее арифметическое n (n<=k) самых больших элементов массива. 20.11.2009, 14:42. Показов 1808. Ответов 11 Метки нет (Все метки) Задан массив вещественных чисел М длины k. Найти сумму и среднее арифметическое n (n<=k) самых больших элементов массива. С клавиатуры вводятся числа n, k и массив М. Результат выводится на экран в удобном для восприятия виде. a. Реализовать сортировку в виде процедуры, подсчет среднего арифметического в виде функции. Заранее продумать интерфейс функций и процедур. b. Дополнить программу таким образом, чтобы она могла выполнять описанные выше действия со строками матрицы. Помогите решить такую задачу, очень благодарен, я и сам попытаюсь решить но потом сравню, в другими решениями. 0

@blackJKE 0 / 0 / 0 Регистрация: 20.11.2009 Сообщений: 16
	21.11.2009, 20:01 [ТС]
	ну вроде среднее арифметическое всех элементов 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	21.11.2009, 20:05
	и насколько больших? 0

@blackJKE 0 / 0 / 0 Регистрация: 20.11.2009 Сообщений: 16
	22.11.2009, 08:35 [ТС]
	Нужно наверн на среднее арифметическое больших значений, а всех элементов. Задача как то не корректно поставлена. ( 0

@blackJKE 0 / 0 / 0 Регистрация: 20.11.2009 Сообщений: 16
	29.11.2009, 20:24 [ТС]
	изменил код не помогает теперь получается вот так: Vvedite kol-vo elementov: 4 Vvedite mssiv chisel 1 3 8 12 vvedite kol-vo maximumov: 3 maximumi: 12 8 3 summa maximumov = 36 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	30.11.2009, 06:27
	blackJKE, Посмотрите внимательно свой код, думаю у Вас при подсчете суммы вместо N[i] написано N[1]; 0

@blackJKE 0 / 0 / 0 Регистрация: 20.11.2009 Сообщений: 16
	03.12.2009, 13:02 [ТС]
	всё разобрался всем спасибо за помощь )) 0