program Project411;

{$APPTYPE CONSOLE}

uses
SysUtils;
function Rus(S:String):String;
var i:byte;
begin
Result:='';
for i:=1 to Length(S) do
case S[i] of
'А'..'п': Result:=Result+Chr(Ord(S[i])-64);
'р'..'я': Result:=Result+Chr(Ord(S[i])-16);
'Ё': Result:=Result+Chr(240);
'ё': Result:=Result+Chr(241);
else
Result:=Result+S[i];
end;
end;

const
nmax=25;

var
D:array [1..nmax] of real;
dmax, dmin, Sa, Sp: real;
imax, imin, i,n, Kp :integer;

begin
writeln ('введите количество элемантов в массиве:');
readln (n);
writeln;
writeln('введите элементы массива:'); //ввод значений элементов массива

for i:=1 to n do
read (D[i]);
writeln;
writeln('Массив D');

for i:=1 to n do
write (D[i]:2:2, ' ':2);
writeln;
writeln;

dmax:=D[1];
dmin:=D[1];
imax:=1;
imin:=1; //нахождение максимального и минимально элементов
for i:= 2 to n do
begin
if D[i]>dmax then
begin
dmax:=D[i];
imax:=i;
end;
if D[i]begin
dmin:=D[i];
imin:=i;
end;
end;

write ('dmax=', Dmax:5:2, ' imax=',imax:2);
writeln (' :Максимальный элемент и его номер');
write ('dmin=', Dmin:5:2, ' imin=',imin:2);
writeln (' :Минимальный элемент и его номер'); writeln;

Kp:=0;
Sp:=0; //вычисление среднего арифметического элементов массива находищихся между dmax и dmin

for i:=imin+1 to imax-1 do
begin
Sp:=Sp+D[i];
Kp:=Kp+1;
end;

for i:=imax+1 to imin-1 do
begin
Sp:=Sp+D[i];
Kp:=Kp+1;
end;

if n<=3 then
writeln('Невозможно посчитать среднее арифмитичечкое из одного элемента.')
else
writeln ('Sa=',Sp/Kp:5:2);

readln;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.