Определить номера строки и столбца максимального элемента прямоугольной матрицы.

[GANGSTER21]

TurboPaskal

Определить номера строки и столбца максимального элемента прямоугольной матрицы А(n, m).
Подсчитать количество нулевых элементов матрицы и напечатать их индексы TP.

[Grag]

Не проблема, стучись, договоримся!

С моим резюме и портфолио можно ознакомиться в соответствующих разделах на моем сайте:
http://igor-bachin.narod.ru


Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Жека-старший]

Блииииинн... Не обижать Pascal..
пишите правильно, глаза режет

[ROMA2PVT]

Program matr;
uses
  Crt;
const
  N = 4;
  M = 4;
var
  a: array [1..N, 1..M] of integer;
  i,j,imax,jmax: integer;
begin
  ClrScr;
  WriteLn('Матрица: ');
  imax := 1;
  jmax := 1;
  randomize;
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i, j]:=Random(50);
    end;
  end;
    for i := 1 to N do
  begin
    for j := 1 to M do
    begin
       write(a[i,j]:3);
    if a[i, j] > a[imax, jmax] then
      begin
        imax := i;
        jmax := j;
      end;
    end;
    writeln;
  end;
  WriteLn('Максимальный элемент - a[',imax, ',', jmax, '] = ', a[imax, jmax]);
end.

Вот первая.

[Grag]

Сообщение от ROMA2PVT

Вот первая.

А что тебе мешает определить максимальный элемент (и его индексы) при генерации элементов матрицы??? То же касается и нулевых элементов... Чё циклы то плодить???

Сообщение от Жека-старший

Блииииинн... Не обижать Pascal..
пишите правильно, глаза режет

Кажный писит так как слысит...

[ROMA2PVT]

О!!!!Да спасибо за замечание. Просто привык так делать.

[ROMA2PVT]

Program matr;
uses
  Crt;
const
  N = 4;
  M = 4;
var
  a: array [1..N, 1..M] of integer;
  i,j,imax,jmax: integer;
begin
  ClrScr;
  WriteLn('Матрица: ');
  imax := 1;
  jmax := 1;
  randomize;
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i, j]:=Random(50);
       write(a[i,j]:3);
    if a[i, j] > a[imax, jmax] then
      begin
        imax := i;
        jmax := j;
      end;
    end;
    writeln;
  end;
  WriteLn('Максимальный элемент - a[',imax, ',', jmax, '] = ', a[imax, jmax]);
end.

Исправил.

[Morik94]

Помогите решить!!!
в массиве из 15 элементов заменить числа находящиеся в интервале от 10 до 50 на удвоенную сумму

[ROMA2PVT]

На удвоенную сумму чего?

[Hacker19_90]

Сообщение от Morik94

Помогите решить!!!
в массиве из 15 элементов заменить числа находящиеся в интервале от 10 до 50 на удвоенную сумму

Слушь тебе не надоело во всех темах писать, отпишись нормально в одной!!