Массивы, среднее арифетическое Опции

[Kaliban]

Народ, помогите плиз, из полного бреда сделать рабочую прогу

В массивах R1..R8, T1..T6 найти среднее арифметическое положительных и среднее арифметическое отрицательных элементов (среди обоих массивов).
Заменить последние элементы в массивах на максимальное среднее арифметическое.

использовать процедуру нада еще

 1.rar ( 523 байт ) Кол-во скачиваний: 377


Сообщение отредактировано: Kaliban - 26.06.2007 13:58

[compiler]

...из полного бреда сделать рабочую прогу

вобщем я(с помощью volvo) тут накидал...

program exam;//а можно узнать, где такие экзамены?
type 
	m=array [0..10] of real ;//подставишь сваи размеры...
var 
	R,T:m; 
	sr1,sr2: real;

function Positive(const r:real):boolean;//проверяет является ли число положительным
begin
	if r>=0 then Positive:=true else Positive:=false; //0 --положительное число
end;

function More(const A,B:real):real; //возвращает большее из двух чисел
begin
	if A>B then More:=A else More:=B; 
end;

procedure SrArP( const ar:array of real; var sr:real); // можна организовать функцию...
var 
	i:integer; 
	sum:real;
begin
	sum:=0;
	for i:=Low(ar) to High(ar) do if Positive(ar[i]) then sum:=sum+ar[i];
	sr:=sum/(High(ar) - Low(ar)+1)(*(i+1)*);//High(ar) - Low(ar), можна заменить на (i+1
end;

procedure SrArN(const ar:m; var sr : real);
var 
	//...
begin
	//напишешь по аналогии...
end;

begin
	SrArN(R, sr1);	writeln(sr1);
        SrArN(T, sr1);	writeln(sr1);
        SrArP(R, sr1);	writeln(sr1);	
	SrArP(T, sr2);	writeln(sr2);	
	R[High®]:=more(sr1,sr2); T[High(T)]:=R[High®];
        readln;
	read;
end.

вроде все...