Найти произведение элементов строки в которой находится максимальный элемент матрицы

@Kasper95 · Регистрация: 21.06.2013

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

Дана вещественная матрица А(5,5).Найти произведение элементов строки в которой находится максимальный элемент матрицы.

@ermolay · 21.06.2013, 23:21

Pascal

const
  n=5;
var
  a: array[1..n,1..n] of integer;
  i,j,im,jm: integer;
  p: longint;
begin
  randomize;
  writeln('Ìàòðèöà:');
  im:=1; jm:=1;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+1;
      if a[i,j]>a[im,jm] then
      begin
        im:=i;
        jm:=j;
      end;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln('Max=a[',im,',',jm,']=',a[im,jm]);
  p:=1;
  for j:=1 to n do
    p:=p*a[im,j];
  writeln('P = ',p);
  readln;
end.

@Kasper95 · 22.06.2013, 08:04 **[ТС]**

Спасибо=)

@Kasper95 0 / 0 / 0 Регистрация: 21.06.2013 Сообщений: 3
		1
	Найти произведение элементов строки в которой находится максимальный элемент матрицы 21.06.2013, 21:43. Показов 2354. Ответов 2 Метки нет (Все метки) Дана вещественная матрица А(5,5).Найти произведение элементов строки в которой находится максимальный элемент матрицы. 0

@Kasper95 0 / 0 / 0 Регистрация: 21.06.2013 Сообщений: 3
	22.06.2013, 08:04 [ТС]	3
	Спасибо=) 0

Найти произведение элементов строки в которой находится максимальный элемент матрицы

Решение