Одномеры

[kempers]

Ребят, у меня проблема с одномерами....вот две задачи...

Определить, сколько нулей лежит вне минимального и максимального значений массива X[1..N]. Числа, расположенные между минимальным и максимальным значениями, рассортировать по возрастанию.

и

Создать массив целых чисел C[1..N]. В одном цикле найти 3 максимальных значения в массиве. Заменить эти максимальные на их среднее.

За ранее огромное спасибо)

[StarWorm]

Пиши во фриланс, тебе решат!
382 шесть шесть шесть 671

[alex_fcsm]

uses crt;
const N_MAX=15;
var i,j,max,min,temp:integer;
    a:array[1..N_MAX] of integer;

begin
clrscr;
randomize;
for i:=1 to N_MAX do
 begin
  a[i]:=random(100);
  write(a[i]:3);
 end;
writeln;
max:=1;min:=1;
for i:=2 to N_MAX do
 if a[max]<a[i] then max:=i
    else if a[min]>a[i] then min:=i;
if max<min then begin
                 j:=min;
                 min:=max;
                 max:=j;
                end;
temp:=0;
for i:=1 to min-1  do
 if a[i]=0 then inc(temp);
for i:=max+1 to N_MAX do
 if a[i]=0 then inc(temp);
writeln('Zero:',temp);

  for i:=min+2 to max-1 do
    for j:=max-1 downto i do
      if a[j-1]>a[j] then
        begin
          Temp:=a[j-1];
          a[j-1]:=a[j];
          a[j]:=temp;
        end;

for i:=1 to N_MAX do
 write(a[i]:3);
end.

[alex_fcsm]

uses crt;
const N_MAX=15;
var i,j,max,temp:integer;
    a:array[1..N_MAX] of integer;

begin
clrscr;
randomize;
for i:=1 to N_MAX do
 begin
  a[i]:=random(100)+1;
  write(a[i]:3);
 end;
writeln;
temp:=0;
for j:=1 to 3 do
begin
  max:=1;
  for i:=2 to N_MAX do
   if a[i]>a[max] then max:=i;
  temp:=temp+a[max];
  a[max]:=0;
end;
temp:=Round(temp/3);
for i:=1 to N_MAX do
 if a[i]=0 then a[i]:=temp;

for i:=1 to N_MAX do
 write(a[i]:3);
end.

[kempers]

Спасибо огросное alex_fcsm