Удалите из матрицы первую строку с максимальным элементом

@Sdsfacei · Регистрация: 24.04.2013

Студворк — интернет-сервис помощи студентам

Удалите из массива А(n,m) первую строку с максимальным элементом (считается, что в массиве несколько максимальных элементов).

@CodeR · 25.04.2013, 12:45

Pascal

Var A:array[1..20,1..20] of integer;
    i,j,n,m,imax,jmax:byte;
Begin
    write('N = ');readln(n);
    write('M = ');readln(m);
    imax:=1;jmax:=1;
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
        if A[i,j]>A[imax,jmax] then
        Begin
          imax:=i;
          jmax:=j;
        End;
      End;
      writeln;
    End;
    writeln('Max = ',A[imax,jmax],' находится в ',imax,' строке');
    writeln('Преобразованная');
    dec(n);
    For i:=imax to n do
     For j:=1 to m do
      A[i,j]:=A[i+1,j];
    For i:=1 to n do
    Begin
      For j:=1 to m do
        write(A[i,j]:4);
      writeln;
    End;
    readln;
End.

@Sdsfacei 1 / 1 / 0 Регистрация: 24.04.2013 Сообщений: 9
		1
	Удалите из матрицы первую строку с максимальным элементом 24.04.2013, 19:14. Показов 1444. Ответов 1 Метки нет (Все метки) Удалите из массива А(n,m) первую строку с максимальным элементом (считается, что в массиве несколько максимальных элементов). 0

Опции темы

Удалите из матрицы первую строку с максимальным элементом

Решение