1)Даны 2 произвольных массива F и G размера k и n соответственно найти в каждом массиве среднее арифметическое отрицательных элементов. Исходные данные взять самостоятельно.
2)Дан произвольный массив Т размена n упорядочить в порядке убывания отрицательные элементы массива Т. В исходном массиве должны быть также отрицательные элементы. На печать вывести элементы исходного и полученного массивов. Исходные данные взять самостоятельно
P.S. Если не трудно,помогите плиз с решением.
А сам не пробовал решать ведь они простые
1Проходишься по массиву суммируя все отрицательные элементы и накапливая их кол-во,а потом делешь сумму
на кол-во.
2Тут находишь все отриц. элементы скидывая их в отдельный массив ,а потом отсортировываешь его.
Попытайся выполнить сам ,будут вопросы спрашивай.
Ну вот первая к примеру
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.