Архив форумов ЦИТФорума

[andero]

Здравствуйте! Я новичок по программированию. Помогите решить вот такую задачу по Паскалю:
Вычислить среднее арифметическое значение тех элементов одномерного массива, которое расположены за первым по порядку максимальным элементом.
Спасибо!

[grf]

Стыдно, товарищь (именно с мягким знаком!), стыдно. Учебники издаются, что бы их читали, а не тараканов разводить.


Фараонов "Основы турбо Паскаля" или что-то аналогичное. Прочти и парься!

Алгоритм:
1. находишь максимальный элемент
2. проверяешь, что за ним есть еще (иначе даешь пинок пользователю)
3. Находишь среднее арифметическое.



_________________
Errare humanum est

[Bjorndalen]

Что то типа этого:

[andero]

Во-первых я хочу сказать большое спасибо вам за ответ.
Дело в том, я пытался решить эту задачу. Моя ошибка была в том, что я присвоил max:=a[1]; первый элемент массива. Из-за этого у меня не выходила. Сейчас исправил ошибку. И все решилось, с помощью вашего варианта.

[grf]

друг, пораскинь мозгами, хоть для себя:

1. Ты делал правильно, на первом шаге мах=a[1] Если массив у тебя начинался с 1 элемента, хотя обычно с 0 и мах=a[0], ищи ошибку в другом
2. Что ты будешь делать, если все элементы массива будут меньше -10000
3. Что ты будешь делать, если максимальный элемент будет последним, в этом случае следует не выдавать ахинею, а сообщить пользователю, что посчитать среднее арифметическое элементов, следующих за максимальным невозможно, т.к. он последний элемент в массиве.


_________________
Errare humanum est

[grf]

научись правильно тестить проги, пригодится очень сильно.


_________________
Errare humanum est

[andero]

Ты прав насчет max=-10000. Я не подумал о таких вещах. Первоначально я понял эту задачу по-другому. Т.е. Сначала находишь первый максимальный элемент, потом второй максимальный элемент, который меньше первого максимального элемента, но больше тех элементов, которые стоят за первым максимальным элементом. Потом вычисляешь сред. арифметическое значение элементов, которые находятся между интервалом. max<сред. значение a(n)<max1. Но, так у меня сначала не получался и потом попробовал решить таким образом. А сейчас даже такой вариант смог решить. Где я мог упустить ошибку не помню, вроде бы алгоритм понимал. Вот значит новички Мне кажется я не правильно открывал и закрывал блоки. Вот этот вариант:
В любом случае большое спасибо!

max:=a[1];
num:=1;
s:=0;
k:=0;
for i:=1 to 10
if a[i]>max then
begin
max:=a[i];
num:=i;
end;
max2:=a[num1+1];
for i:=10 downto num+1 do
begin
if a[i]>max2 then begin
max2:=a[i];
num2:=i;
end;
end;
for i:=num+1 to num2-1 do
begin
k:=k+1;
s:=s+a[i];
sred:=s/k;
end;
writeln(sred);

2-ой вариант
max:=a[1];
num:=1;
s:=0;
k:=0;
for i:=1 to 10
if a[i]>max then
begin
max:=a[i];
num:=i;
end;
for i:=10 downto num+1 do
begin
s:=s+a[i];
k:=k+1;
sred:=s/k;
end;
writeln(sred);