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