Подпрограммы оО)

[SkyL1ne]

столкнулся недавно с проблемой, проседу и функции, что это такое и с чем, можете подсказать как давать ссылку на программу или функию
или как можно задать . В каждой нечетной строке матрицы nхm (n,m<=15) найти среднее арифметическое элементов, не принадлежащих отрезку от 0 до 10, и сформировать из них одномерный массив

Для каждого элемента последовательности определить количество элементов левее ai, которые по модулю меньше ai, и количество элементов справа от ai, которые по модулю больше ai

[ROMA2PVT]

-I-

Uses
    CRT;
Const
max1=15;max2=15;
var
m,n,i,j,sum,kol:integer;
s:array[1..max1,1..max2] of integer;
mas:array[1..max1] of real;
sr:real;
begin
Clrscr;
randomize;
repeat
write('Введите количество строк: ');
readln(n);
until n in [1..max1];
repeat
write('Введите количество столбцов: ');
readln(m);
until m in [1..max2];
for i:=1 to n do
begin
for j:=1 to m do
begin
s[i,j]:=random(40)-2;
write(s[i,j]:2,' ');
end;
writeln;
end;
writeln;
kol:=0;
for i:=1 to n do
if i mod 2=1 then
 begin
   sr:=0;
   for j:=1 to m do
 if (s[i,j]<=0) or (s[i,j]>=10) then
   sr:=sr+s[i,j];
   sr:=sr/n;
   writeln('Среднее в строке ',i,':= ',sr:1:2);
   inc(kol);
   mas[kol]:=sr;
 end;
 writeln;
 write('Массив: ');
 for i:=1 to kol do
 begin
 write(mas[i]:1:2,' ');
 end;
  readkey;
 end.

-II-

uses crt;
const
   max=100;
var a:array[1..max] of integer;
    n,i,ind,kol,c,kol2:integer;
begin
clrscr;
randomize;
repeat
write('Введите количество элеентов массива: ');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10)-5;
  write(a[i],' ');
 end;
writeln;
writeln;
ind:=1;
write('Введите элемент для поиска: ');
readln(c);
for i:=1 to n do
if a[i]=c then
begin
ind:=i;
break;
end;
writeln('Индекс элемента ',c,':=',ind);
writeln;
kol:=0;
for i:=ind+1 to n do
if abs(a[i])>c then
begin
inc(kol);
end;
writeln('Количество элементов после С:=',kol);
kol2:=0;
for i:=1 to ind-1 do
if abs(a[i])<c then
begin
inc(kol2);
end;
writeln('Количество элементов перед С:=',kol2);
readln
end.

Ну а подпрограммы уж сам сделаешь.

[SkyL1ne]

а как мне из этого сделать подпрограммы?

я чет не допонимаю

[ROMA2PVT]

http://programmersforum.ru/showthread.php?t=98812
Вот например там процедура поиска max элемента.показать немогу.Бегу на пары.Посмотри ссылку осмысли и сделай.

[SkyL1ne]

почитал, только не понимаю как сделать так, что бы программа использовала подпрограмму, что для этого нужно

[ROMA2PVT]

SkyL1ne пиши в личку.Помогу.