Проблема с МАССИВАМИ! Help!

[GorNikSar]

Зачёты на носу, а ещё есть нерешённое. Помогите решить!

1. Результаты соревнований по марафону представлены массивами фамилий и результатов. В марафоне участвует 40 человек. Массивы отсортированы в порядке занятых мест. Определить бинарным поиском фамилию спортсмена, показавшего результат 4 часа.

2. Рост учеников представлен в виде массива. Рост девочек кодируется знаком "плюс", рост мальчиков - знаком "минус". Определить средний рост мальчиков.

3. В массиве 20 элементов. Найти и напечатать: удалить из массива нулевые элементы.

[alex_fcsm]

Сообщение от GorNikSar

3. В массиве 20 элементов. Найти и напечатать: удалить из массива нулевые элементы.

Нулевые элементы заменяются на элементы с конца, а длина массива уменьшается на 1

uses crt;
const n=20;
var a:array[1..n] of integer;
    i,j,k:integer;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
  a[i]:=random(10);
 write(a[i]:2);
 end;
k:=0;
for i:=1 to n do
 if a[i]=0 then begin
                a[i]:=a[n-k];
                inc(k);
                end;
writeln;
for i:=1 to n-k do
 write(a[i]:2);
end.

[alex_fcsm]

Сообщение от GorNikSar

2. Рост учеников представлен в виде массива. Рост девочек кодируется знаком "плюс", рост мальчиков - знаком "минус". Определить средний рост мальчиков.

uses crt;
const n=20;
var a:array[1..n] of integer;
    i,k:integer;
    j:real;

begin
clrscr;
randomize;
for i:=1 to n do
 begin
 a[i]:=160+random(40);
 k:=random(2);
 if k=0 then a[i]:=-a[i];
 write(a[i]:5);
 end;
k:=0;j:=0;
for i:=1 to n do
if a[i]<0 then begin
                j:=j+a[i];
                inc(k);
               end;  
writeln;
writeln(abs(j/k):4:1)
end.

[alex_fcsm]

Сообщение от GorNikSar

Зачёты на носу, а ещё есть нерешённое. Помогите решить!

1. Результаты соревнований по марафону представлены массивами фамилий и результатов. В марафоне участвует 40 человек. Массивы отсортированы в порядке занятых мест. Определить бинарным поиском фамилию спортсмена, показавшего результат 4 часа.

uses crt;
const n=100;
var a:array[1..n] of real;
    Surname:array[1..n] of string[20];
    i,j,x:integer;
    t:string;
    temp:real;

procedure Find;
var i,l,r:integer;
begin
l:=1;r:=x;
repeat
i:=(r-l) div 2 +l;
if a[i]<4 then l:=i;
if a[i]>4 then r:=i;
if a[i]=4 then writeln(Surname[i]);
until (l=r)or(a[i]=4);

end;

begin
x:=0;
repeat
inc(x);
clrscr;
writeln('Input surname');
readln(Surname[x]);
writeln('Input result');
readln(a[x]);
if x<>n then writeln('Continue(y/n)?')
until (readkey='n')or(x=n);
  for i:=2 to x do
    for j:=x downto i do
      if a[j-1]>a[j] then
        begin
          Temp:=a[j-1];
          t:=Surname[j-1];
          a[j-1]:=a[j];
          Surname[j-1]:=Surname[j];
          a[j]:=temp;
          Surname[j]:=t;
        end;
writeln('---------------');
Find;

end.