выделить в одномерный массив строку матрицы с максимальном элементом

[7karandashik7]

задача : выделить в одномерный массив строку матрицы с максимальном элементом!пожалуйста поогите!!!если не решу то на эзамен не допустят

[puporev]

uses crt;
var a:array[1..20,1..20]of integer;
    b:array[1..20]of integer;
    n,m,i,j,max,imax:integer;
begin
clrscr;
write('Kolichestvo strok= ');readln(n);
write('Kolichestvo stolbcov= ');readln(m);
randomize;
Writeln('Matrica:');
for i:=1 to n do
   begin
     for j:=1 to m do
       begin
         a[i,j]:=random(20);
         write(a[i,j]:4);
       end;
     writeln;
   end;
max:=a[1,1];imax:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
   begin
     max:=a[i,j];
     imax:=i;
   end;
writeln('Max element=',max,' v stroke ',imax);
writeln('Massiv:');
for j:=1 to m do
   begin
     b[j]:=a[imax,j];
     write(b[j],' ');
   end;
readln
end.

[КоляН898]

Вобщем,задача нужна на пересдачу экзамена...
В массиве С(65) найти: положительные элементы,
их количество ,
их сумму.
Из найденных элементов сформировать отдельный массив и распечатать его, заданый массив и найденные параметры.

[puporev]

uses crt;
const n=65;
var a,b:array[1..n]of integer;
    i,k,sum:integer;
begin
clrscr;
randomize;
writeln('Ishodnyj massiv:');
k:=0;sum:=0;
for i:=1 to n do
   begin
     a[i]:=random(10)-4;
     if a[i]>0 then
        begin
         k:=k+1; //количество положительных
         sum:=sum+a[i]; //сумма положительных
         b[k]:=a[i];  //массив положительных
        end;
     write(a[i],' ');
   end;
writeln;
writeln;
writeln('Kolichestvo polozitelnyh=',k,' Summa=',sum);
writeln;
writeln('Massiv polozitelnyh chisel:');
for i:=1 to k do
write(b[i],' ');
readln
end.

[КоляН898]

Спасибо за помощь!

[Dudar]

В матрице В(8,8) найти минимальные и максимальные элементы в каждой строке и их порядковые номера , заданную матрицу и найденные параметры распечатать. просто очень надо .Зарание спасибо!

[puporev]

Что понимать под порядковыми номерами? Номера в массиве 1,2,3,4 ...?
Или номера строк и столбцов, где они находятся, или что-то другое?

[Dudar]

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

[puporev]

При описании элементов одномерных и двумерных массивов используется понятие порядкового номера элемента, причем начальный элемент массива A размера N всегда имеет порядковый номер 1 и обозначается в формулировках заданий как A1, а конечный элемент этого же массива имеет порядковый номер N и обозначается как AN. Аналогично, начальный элемент двумерного массива B обозначается как B1,1.

Исходить будем из этого утверждения.

uses crt;
const n=8;
var a:array[1..n,1..n]of integer;
    i,j,max,jmax,min,jmin:integer;
begin
clrscr;
randomize; //генератор случайных чисел
Writeln('Matrica:');
for i:=1 to n do   //создаем исходную матрицу
   begin
     for j:=1 to n do
       begin
         a[i,j]:=random(21)-10; //случ. числа из инт [-10,10]
         write(a[i,j]:4);
       end;
     writeln;
   end;
readln;
for i:=1 to n do
  begin
   max:=a[i,1];min:=a[i,1];jmax:=1;jmin:=1;
   for j:=1 to n do
    begin
      if a[i,j]>max then
         begin
           max:=a[i,j];//находим макс в строке
           jmax:=j;  //номер столбца
         end
      else if a[i,j]<min then
         begin
           min:=a[i,j]; //то же с мин
           jmin:=j;
         end;
     end;
   writeln('max elem v stroke ',i,'=',max,' ego nomer=',i,jmax);
   writeln('min elem v stroke ',i,'=',min,' ego nomer=',i,jmin);
   writeln;
  end;
readln
end.

[Dudar]

Спасибо огромное!