• Составьте программу ,определяющую максимальный элемент и его индексы матрицы А размером M x N

Ответы 1

  • var a:array[1..10,1..10]of integer; неудобно var a:array[1..10,1..10]of integer;max,i1,j1,i,j,k,m,n:integer;beginreadln(m,n);for i:=1 to m dofor j:=1 to n doreadln(a[i,j]);max:=a[1,1];i1:=1;j1:=1;for i:=1 to m do beginfor j:=1 to n do beginif a[i,j]>max then begin max:=a[i,j]; i1:=i; j1:=j; end;end;end;writeln(max,' ',i1,' ',j1);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years