Паскаль(абс)

[Roll1n]

1)Вычислить массив R[1:n]
в соот. с формулой
r[i]=2cos(3ax-ih)
i=1,n
x,h,a-заданы
2)из вычисленного массива R удалить все отрицательные элементы,расположенные до минимального
3)в полученном массиве R[1:k],где k-число эл-ов,оставшееся после удаление,подсчитать:
среднее арифметическое эл-ов,расположенных между первым и последним положительными элементами

Вот задача,с 1,2 частью я справился
Нужно доделать 3

Прошу помочь,если надо могу код 1,2 части кинуть

[.Phoenix]

Вот код ко 2 ой задачке, думаю должно пойти:

for i:=1 to n do
if r[i]<min then
begin
min:=r[i];
y:=i;
end;
for i:=1 to y do
if r[i]<0 then
begin
r[i]:=r[i+1];
z:=z+1;
for i:=1 to y do
write(r[i]:4:2, ' ');

К третьему: *поясню логику*
Когда мы сравниваем числа в массиве, мы удаляем отрицательные числа, при смещении вкл счётчик, т.е. чтобы при выводе мы знали сколько элементов сейчас содержит массив, т.е. Новый_размер_массива:=длина_до_удал ения_отр_чисел-удаленное кол-во_отр_чисел.

for i:=1 to Новый_размер_массива do
sum:=sum+r[i];

А в конце avg:=sum/Новый_размер_массива.

[Roll1n]

Сообщение от .Phoenix

Вот код ко 2 ой задачке, думаю должно пойти:

for i:=1 to n do
if r[i]<min then
begin
min:=r[i];
y:=i;
end;
for i:=1 to y do
if r[i]<0 then r[i]:=r[i+1];
for i:=1 to y do
write(r[i]:4:2, ' ');

y:=i,мб nmin:=i?
Мы же вроде должны найти nmin

[.Phoenix]

y:=i,мб nmin:=i?
Мы же вроде должны найти nmin

Да без разницы как обозначить, главное то, что номер положения в массиве самого минимального элемента есть текущее кол-во элементов в массиве.

[Roll1n]

Сообщение от .Phoenix

Да без разницы как обозначить, главное то, что номер положения в массиве самого минимального элемента есть текущее кол-во элементов в массиве.

Спасибо
Осталось 3 задание

[.Phoenix]

Кажется для третьего задания я тебе описал логику:

К третьему: *поясню логику*
Когда мы сравниваем числа в массиве, мы удаляем отрицательные числа, при смещении вкл счётчик, т.е. чтобы при выводе мы знали сколько элементов сейчас содержит массив, т.е. Новый_размер_массива:=длина_до_удал ения_отр_чисел-удаленное кол-во_отр_чисел.
Код:

for i:=1 to Новый_размер_массива do
sum:=sum+r[i];
А в конце avg:=sum/Новый_размер_массива.

[Roll1n]

sum- сумма чисел?

[.Phoenix]

Совершенно верно.

[Roll1n]

Как-то туговато..
Прошу 3 задание с кодом

[.Phoenix]

Так-с, сюда скинь всю свою программу.