сумма и кол-во отрицательных элементов Опции

[snopy]

Помогите пожайлуста доделать программу.В одномерном массиве, из N вещественных элементов,(n<=50) вычислить сумму и количество отрицательных элементов массива, расположенных между максимальным и минимальным элементами.

Program one;
type
m=array[1..50] of integer;
var
a:m;
i,n:integer;
min,max,mini,maxi:integer;
procedure printArray(var a:m);
var
i:integer;
begin
  write('n=');
  readln(n);
  for i:=1 to n do
	a[i]:=random(100)-50
  end;
procedure outarray(var a:m);
var
i:integer;
begin
  for i:=1 to n do
  write('',a[i]:4);
end;
procedure minandmax(var a:m);
var
i:integer;
begin
	 max:=a[1];
	 min:=a[1];
			   for i:= 1 to n do
			  if a[i]>max then
begin max:=a[i]; maxi:=i;
	  for i:=1 to n do
	  if a[i]<min then
begin min:=a[i]; mini:=i;
writeln;
writeln('maxi=',maxi);
writeln('mini=',mini);
end;
end;
end;
procedure sumandkol(var a:m);
var
i,n,s:integer;
begin
writeln('maxi=',maxi);
writeln('mini=',mini);
	 s:=0;
	 n:=0;
	 while a[i]<0 do
		   begin
	 if ((a[i]>mini) and (a[i]<maxi)) then
s:=s+a[i];
end;
writeln('summs=',s);
n:=abs(max-min);
writeln('kol-vo',n);
end;
BEGIN
randomize;
printarray(a);
outarray(a);
minandmax(a);
sumandkol(a);
readln;
end.

Сообщение отредактировано: volvo - 27.11.2009 17:00