написанные программы / задание №2 — 2 / VAR0 / PRO2

program pro2;
uses Crt;
var
s,p,t,Mmin,Mmax:Real;
M:array[1..1000] of Real;
n,i,j,k,l:Integer;
begin
clrscr;
Writeln('Massif calculation. Version 1.0 (c) Copyright 1999 Popov P.M.');
Write('Number of elements ');
Readln(n);
Writeln('Input massif elements.');
s:=0;
for i:=1 to n do
begin
Write('M(',i,')=');
Read(M[i]);
if M[i]<0 then s:=s+M[i];
end;
for i:=1 to n do
if Mmin > M[i] then Mmin:=M[i];
if Mmax < M[i] then Mmax:=M[i];
for i:=1 to n do
begin
if Mmin=M[i] then k:=i;
if Mmax=M[i] then l:=i;
end;
p:=1;
if k<l then
for i:=k+1 to l-1 do begin
p:=p*M[i];
end
else
for i:=l+1 to k-1 do begin
p:=p*M[i];
end;
Writeln('New massif:');
for i:=1 to n do begin
for j:=n downto 1 do begin
if M[j]<M[j-1] then begin
t:=M[j];
M[j]:=M[j-1];
M[j-1]:=t;
end;
end;
end;
for i:=0 to n-1 do begin
Writeln('M[',i+1,']= ',M[i]:6:2);
end;
Writeln('The sum of negative elements is ',s:6:2);
Writeln('The product of elements between <min> and <max> is ',p:7:2);
Writeln('Work completed. Thank you for use! Please register.');
Writeln('Press any key...');
Readkey;
end.