Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n)

@driveme · Регистрация: 22.05.2014

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

Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n) (процедура только для произведения)

@Power torr · 28.05.2014, 19:52

Pascal

Program z1;
uses crt;
type mas=array[1..100,1..100] of integer;
var i,j,n,m:integer;
a:mas;
k:integer;
procedure pr(n,m:integer; b:mas; var p:integer);
var
i,j,min:integer;
begin
p:=1;
for i:=1 to n do begin
 min:=b[i,1];
 for j:=2 to m do
 if b[i,j]<min then min:=b[i,j];
 p:=p*min;
 end;
 end;
begin
 write('vvesti chisla N,M ');
 readln(n,m);
 for i:=1 to n do begin
 for j:=1 to m do begin
 a[i,j]:=random(20)+1;
   write(a[i,j]:4); end;
  writeln;
      end;
pr(n,m,a,k);
writeln('k=',k:8);
readln;
end.

@driveme 0 / 0 / 0 Регистрация: 22.05.2014 Сообщений: 25
		1
	Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(mn) 28.05.2014, 17:16. Показов* 1522. Ответов 1 Метки нет (Все метки) Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n) (процедура только для произведения) 0

	28.05.2014, 19:52

Опции темы

Составить процедуру для вычисления произведения минимальных элементов каждой строки матрицы a(m*n)

Решение