нахождение минимального элемента матрицы в виде функции Опции

[ulika]

9. Сформировать двумерный массив Z размером 3 x 11 с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Вычислить сумму положительных элементов строки, в которой находится минимальный элемент матрицы Z (оформить нахождение минимального элемента в виде функции). Вывести на экран и в файл полученную сумму и номер строки

[ulika]

вот так я вижу программу, только по-прежнему не могу понять как пользоваться функцией((
извините за неправильное оформление, прочитала правила, но не совсем получается строго им следовать)

Добавлено через 4 мин.

program kontrolnaya;
const N1=5;N2=11;
var i,j,c,sum:integer;
      mas:array[1..N1,1..N2]of integer;
        f:text;

function get_min:integer;
begin
min:=mas[1,1];
for i:=1 to N1 do
for j:=1 to N2 do
if mas[i,j]<min then 
	begin
	get_min:=mas[i,j];
	c:=i;
	end;
end;

begin
randomize;
assign (f,'matrica.txt');
rewrite(f);
for i:=1 to N1 do
	begin
	for j:=1 to N2 do
		begin
		mas[i,j]:=random(201)-100;
		write (mas[i,j]:5);
		write(f,mas[i,j]:5);
		end;
	writeln;
	writeln(f);
	end;

// не знаю как вызвать номер строки где находится минимум, потом считаю сумму//

sum:=0;
i:=//номер строки//
for j:=1 to N2 do
sum:=sum+mas[i,j];
close(f);
read(mas[i,j],sum);
end.

[Lapp]

ulika, оформить функцию несложно, но с точки зрения ПРОГРАММИРОВАНИЯ не вполне ясно, какие параметры тебе нужно передать в эту функцию. По идее, нужно передавать матрицу, но тогда возникает вопрос о ее размерности и о том, знаешь ли ты об открытых массивах. Прояснишь?

Если не передавать массив, то все предельно просто. Примерно так:

function MinRow: integer;  // исправлено
var
  i,j,x,y: integer;
begin
  x:=1;
  y:=1;
  for i:=1 to N1 do for j:=1 to N2 do if mas[i,j]<mas[x,y] then begin
    x:=i;
    y:=j
  end;
  MinRow:=x
end;

Потом делаешь:

i:= MinRow; //номер строки//

И все )).

прочитала правила, но не совсем получается строго им следовать)

А с чем конкретно проблема?

Сообщение отредактировано: Lapp - 20.04.2010 1:08