Массив: В матрице А найти строку с максимальным произведением.

[vitali1513]

Помогите решить задание пожалуйста

В матрице А найти строку с максимальным произведением. Входные данные: целое положительное число n, массив чисел А nxn. Использовать n или n +1 процессов для выполнения задания.

[p51x]

Таки в чем проблема? Не знаете на каком языке писать? И растерялись в выборе из кучи ИДЕ и компиляторов?

[newerow1989]

const n=6;
var i,j:integer;
    a:array[1..n,1..n] of integer;
    m:array[1..n] of integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      m[i]:=1;
      For j:=1 to n do
      begin
         a[i,j]:=1+Random(10);
         Write(a[i,j]:3,'  ');
         m[i]:=m[i]*a[i,j];
      end;
      Writeln('  x ',m[i]);
   end;
   Writeln;
   j:=1;
   For i:=2 to n do
      If m[j]<m[i] then
         j:=i;
   Writeln(j,' stroka');
   Readln;
end.