Задан двухмерный массив а=(а i, j), нужно найти номер строки сумма элементов в которой является наибольшей.

Var a: array[1..100,1..100] of integer; sum,i,j,index,tmp: integer; beginrandomize; sum: =-1; for i: =1 to 10 dobegin  tmp: =0;   for j: =1 to 10 do  begin    a[i,j]: =random(10);     tmp: = tmp + a[i,j];     write(a[i,j],' ');   end;   if ( sum < tmp ) then  begin    sum: =tmp;     index: =i;   end;   write(' sum [',tmp,']');   writeln; end;   writeln(index); end.

  const n=5; var a: array [1..n,1..n] of integer;     i,max,ind,s,j: integer; begin    s: =0;   randomize;   for i: =1 to n do    for j: =1 to n do      a[i,j]: =random(100)-50; for i: =1 to n do begin  for j: =1 to n do   write(a[i,j]: 4);   writeln;   end;   j: =6;     for i: =1 to n do     begin      dec(j);       if a[i,j]< 0 then        s: =s+a[i,j];     end;   max: =a[1,2];   ind: =1;   for i: =1 to n do    if abs(a[i,2])> abs(max) then     begin      max: =a[i,2];       ind: =i;     end;   a[ind,2]: =s;         writeln;         writeln;     writeln('a)summ: ',s);     writeln('b)max: ',max);     writeln;         writeln('c)');   for i: =1 to n do begin  for j: =1 to n do   write(a[i,j]: 4);   writeln;   end;   readln; end.

Var  a: array [1..100000] of integer; i,n,k: integer; begin writeln('введите n и k'); readln(n,k); for i: =1 to n do begin writeln('введите элемент №',i); readln(a[i]); end; writeln('весь массив: '); for i: =1 to n do write(a[i],' '); writeln(); writeln('числа кратные ',k,': '); for i: =1 to n do if a[i] mod k = 0 then write(a[i],' '); end.тест №1: весь массив: 2 6 -9 4 5 12 15  числа кратные 3: 6 -9 12 15  тест №2: весь массив: 9 0 8 124 -16 11 19  числа кратные 4: 0 8 124 -16