Задачка. Паскаль.

[Nexx]

Здрасьте!! Сложная задача,сам не смог разобраться, плз посмотрите:

Для массива Т из k элементов составить процедуру, формирующую массив из индексов элементов массива Т, для которых f(Ti) больше заданной величины.

В каждой строке матрицы А распечатать только те элементы, десятичный логарифм которых больше G.

[Nexx]

program p;
uses crt;
type massiv=array[1..10] of real;
var m,t:massiv; a:array[1..10,1..10] of real;
    i,j,n:integer; k:byte; g:real;
function log(x:real):real;
 begin log:=ln(x)/ln(10);
 end;
procedure bg(b:byte;a:massiv; g:real; var d:massiv; l:byte);
	  begin
		l:=0;
	   for i:=1 to n do
	     if (log(a[i])>g) then begin
				      l:=l+1;
				      d[l]:=a[i];
				      if b=1 then d[l]:=l;
				    end;
	   end;
begin clrscr;   writeln('vvedite n: '); readln(n);

      for i:=1 to n do
	for j:=1 to n do
	 readln(a[i,j]);
	 for j:=1 to n do begin
	  m[i]:=a[i,j];
      for i:=1 to n do begin
       for j:=1 to n do
	 m[i]:=a[i,j];
	  bg(0,m,g,t,k);
	  for i:=1 to k do
	    write(t[i],' ');
	    writeln;
		      end;
		      end;
    for i:=1 to n do
      readln(t[i]);
    bg(1,t,g,m,k);
     writeln;
   for i:=1 to k do
      write(t[i]);
      readkey;
end.

[Nexx]

Вот что я наваял) только уже сейчас вижу что неправильно, пожалста исправьте, оч нада

[puporev]

В самом начале у тебя ошибки. Функция Log сделана правильно, а дальше сплошная путаница. Я тебе написал код, разбирайся. Что непонятно, спрашивай.

uses crt;
type mas=array[1..10,1..10] of real;
var m:mas;a:array[1..10] of real;
    i,j,n:integer;g:real;
function log10(x:real):real;
begin
   log10:=ln(x)/ln(10);
end;

procedure bg(m:mas;n:integer;g:real);
var i,j:integer;
begin
   for i:=1 to n do
     begin
        for j:=1 to n do
           if log10(m[i,j])>g then
           write(m[i,j]:6:2);writeln;
     end;
readln;
end;

begin
clrscr;
write('Введите n<=10; n=');readln(n);
write('Введите число g (0<=g<=1); g=');readln(g);
randomize;
for i:=1 to n do
for j:=1 to n do
    begin
      m[i,j]:=random(10)+1+random;
    end;
for i:=1 to n do
   begin
     for j:=1 to n do
         write(m[i,j]:6:2);
   writeln;
  end;
readln;

bg(m,n,g);

end.

[Nexx]

Я вот немного по другому переделал, тока ошибку выдает. Зацени

program p;
uses crt;
type massiv=array[1..10] of real;
     dvmass=array[1..10,1..10] of real;
var a:dvmass;
    g:real; c:massiv;
    q,k,n,i,j:integer;
    m:array[1..10] of integer;
function log10(x:real):real;
     begin
	 log10:=ln(x)/ln(10);
     end;
procedure proc(t,b:massiv; g:real; k,n:integer);
	begin
	  for i:=1 to n do
	    if log10(t[i])>g then begin
	      k:=k+1;
	      b[k]:=i;
				 end;
	 end;
begin clrscr;
      randomize;
      writeln('Vvedi n-razryadnost'' matrici i vvedi g');
      readln(n,g);
      for i:=1 to n do begin
	for j:=1 to n do begin
	  a[i,j]:=random(31)-15;
	  write(a[i,j]:4);
	  end;
	  writeln;
	  end;
     for i:=1 to n do
       begin
	for j:=1 to n do
	c[j]:=a[i,j];
	proc(c,g,k,n,m);
	for q:=1 to k do
	write(a[i,m[k]]:4);
	writeln;
      end;
      readkey;
end.

[Nexx]

За прогу кстати спс, все понятно))