IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Две задачи:1)На использование подпрограмм.2)На сортировку
сообщение
Сообщение #1


Гость






1)Даны 2 произвольных массива F и G размера k и n соответственно найти в каждом массиве среднее арифметическое отрицательных элементов. Исходные данные взять самостоятельно.

2)Дан произвольный массив Т размена n упорядочить в порядке убывания отрицательные элементы массива Т. В исходном массиве должны быть также отрицательные элементы. На печать вывести элементы исходного и полученного массивов. Исходные данные взять самостоятельно

P.S. Если не трудно,помогите плиз с решением.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской

Репутация: -  0  +


А сам не пробовал решать ведь они простые
1Проходишься по массиву суммируя все отрицательные элементы и накапливая их кол-во,а потом делешь сумму
на кол-во.
2Тут находишь все отриц. элементы скидывая их в отдельный массив ,а потом отсортировываешь его.
Попытайся выполнить сам ,будут вопросы спрашивай.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской

Репутация: -  0  +


Ну вот первая к примеру
Program pr;
var f:array[1..2000] of integer;
g:array[1..2000] of integer;
s1,s2,j2,j1,i,n,k:integer;
SredArif2,SredArif1:real;

Procedure VvodMassiva1(n:integer);
begin
writeln ('Vvedite elementi massiva F:');
For i:=1 to n do
readln (f[i]);
end;

Procedure VvodMassiva2(k:integer);
begin
writeln ('Vvedite elementi massiva G:');
For i:=1 to k do
readln (g[i]);
end;

Procedure SrArif1;
begin
For i:=1 to n do
If f[i]<0 then
begin
s1:=s1+f[i];
j1:=j1+1
end;
If s1=0 then
writeln ('Otric elementov v massive f net')
else
begin
SredArif1:=s1/j1;
writeln ('Srednee Arifmet otric elementov dli massiva F:',SredArif1)
end;
end;

Procedure SrArif2;
begin
For i:=1 to k do
If g[i]<0 then
begin
s2:=s2+g[i];
j2:=j2+1
end;
If s2=0 then
writeln ('Otric elementov v massive G net')
else
begin
SredArif2:=s2/j2;
writeln ('Srednee Arifmet otric elementov dli massiva G:',SredArif2);
end;
end;

begin
writeln ('Vvedite razmernost massiva F:');
readln (n);
writeln ('Vvedite razmernost massiva G:');
readln (k);

VvodMassiva1(n);
VvodMassiva2(k);
SrArif1;
SrArif2;

readln;
end.


Добавлено через 12 мин.
Ну по второй задаче вопрос после сортировки тебе нужно выводить только отсотиров. часть из отрицательн. элементов или весь массив так чтобы положительные элементы оставались на своем месте.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.12.2020 9:03
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name