информатика
не пишите фигню

Const
  m=8;
  n=6;
var
  a:array[1..m,1..n] of integer;
  st,t:string;
  i,j,k,s:integer;
begin
  Write('k='); Read(k);
  Randomize;
  Writeln('Исходная матрица A[',m,',',n,']');
  st:='';
  for i:=1 to m do begin
    s:=0;
    for j:=1 to n do begin
      a[i,j]:=Random(15)-5; // [-5;9]
      Write(a[i,j]:3);
      s:=s+a[i,j]
      end;
    Writeln;
    if s>k then begin
      Str(i,t);
      if st='' then st:=t
      else st:=st+','+t
      end
    end;
  if st<>'' then Writeln('Искомые строки: ',st)
end.

Пример
k=15
Исходная матрица A[8,6]
  3 -5  6  8  0  2
  1  1  5  2  0  1
  0 -1  1  9  5  8
 -1 -2 -3  3 -2 -2
  8  7  5  6  5  3
  8 -1  7 -3  7  3
  3 -5  6 -1  0  4
  7  1  9  1  4  6
Искомые строки: 3,5,6,8

//Dev-C++ (C)

#include <stdio.h>

int main(void)
 {const int n=10;
 int ar[n],i,j,k,c;
 i=0;
 while(i<n)
  {scanf("%d",&ar[i]);
  i++;}
 printf(" \nfirst array \n");
 i=0;
 while(i<n)
  {printf("%d ",ar[i]);
  i++;}
 i=0;
 k=0;
 while(i<n)
  {if(ar[i]%5==0)
   {c=ar[i];
   ar[i]=ar[k];
   ar[k]=c;
   k++;}
  i++;}
 printf(" \n1 fin array \n");
 i=0;
 while(i<n)
  {printf("%d ",ar[i]);
  i++;}
 i=0;
 while(i<(n-1))
  {j=i+1;
  while(j<n){
   if(ar[i]>ar[j])
    {c=ar[i];
    ar[i]=ar[j];
    ar[j]=c;}
    j++;}
  i++;}
 printf("\n2 fin array \n");
 i=0;
 while(i<n)
  {printf("%d ",ar[i]);
  i++;}
 return 0;
}
Пример ввода:
1
5
2
10
3
15
4
20
5
25
Пример вывода:
first array
1 5 2 10 3 15 4 20 5 25
1 fin array
5 10 15 20 5 25 4 1 3 2
2 fin array
1 2 3 4 5 5 10 15 20 25