Массив Опции

[Джейн Смит]

Преподаватель дал задачу "Написать процедуру или функцию поиска по массиву". Я написала программу поиска по массиву показала преподавателю, но его не устраивает что я не использовала ни процедур, ни функций. Программа работает, уже не знаю что делать. Посоветуйте что-нибудь.

Program poisk;
Uses crt;
Var
   n,r,i,s:integer;
   a:array [1..30] of integer;
Begin
Clrscr;
textcolor (9);
r:=0;
writeln ('Vvedite kol-vo elementov v massive');
readln (n);
For i:=1 to n do
begin
writeln ('Vvedite ',i,'-e chislo masiva');
readln (a[i]);
end;
writeln ('Vvedite chislo dlya poiska');
readln (s);
For i:=1 to n do
If a[i]=s
  then r:=r+1;
If r=0
 then writeln ('chislo ',s,' ne obnarugenno ni razy')
 else writeln ('chislo ',s,' obnarugenno ',r,' raz(a)');
readkey;
 END.

Сообщение отредактировано: Джейн Смит - 28.02.2010 14:02

[Client]

Program poisk;
Uses crt;
Var
   n,r,i,s:integer;
   a:array [1..30] of integer;

function find:byte;
var
   k,i:byte;
   s:integer;
begin
     k:=0;
     writeln ('Vvedite chislo dlya poiska');
     readln (s);
     For i:=1 to n do If a[i]=s then inc(k);
     find:=k
end;

Begin
   Clrscr;
   textcolor (9);
   r:=0;
   writeln ('Vvedite kol-vo elementov v massive');
   readln (n);
   For i:=1 to n do
   begin
   writeln ('Vvedite ',i,'-e chislo masiva');
   readln (a[i]);
   end;
   r:=find;
   If r=0
    then writeln ('chislo ',s,' ne obnarugenno ni razy')
    else writeln ('chislo ',s,' obnarugenno ',r,' raz(a)');
   readkey;
 END.