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 (rus('введите количество элемантов в массиве:'));
readln (n);
writeln;
writeln(rus('введите элементы массива:')); //ввод значений элементов массива

for i:=1 to n do
read (D[i]);
writeln;
writeln(rus('Массив 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 (rus(' :Максимальный элемент и его номер'));
write ('dmin=', Dmin:5:2, ' imin=',imin:2);
writeln (rus(' :Минимальный элемент и его номер')); 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(rus('Невозможно посчитать среднее арифмитичечкое из одного элемента.'))
else
writeln ('Sa=',Sp/Kp:5:2);

readln;
readln;
end.





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