Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Две задачи:1)На использование подпрограмм.2)На сортировку

Автор: B.L.A.C.K. 6.06.2008 23:47

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

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

P.S. Если не трудно,помогите плиз с решением.

Автор: Coach 7.06.2008 13:10

А сам не пробовал решать ведь они простые
1Проходишься по массиву суммируя все отрицательные элементы и накапливая их кол-во,а потом делешь сумму
на кол-во.
2Тут находишь все отриц. элементы скидывая их в отдельный массив ,а потом отсортировываешь его.
Попытайся выполнить сам ,будут вопросы спрашивай.

Автор: Coach 8.06.2008 17:07

Ну вот первая к примеру

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 мин.
Ну по второй задаче вопрос после сортировки тебе нужно выводить только отсотиров. часть из отрицательн. элементов или весь массив так чтобы положительные элементы оставались на своем месте.