Вычислить сумму положительных элементов строки, в которой находится минимальный элемент матрицы

@Mila6777 · Регистрация: 06.01.2013

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

Pascal

uses crt;
type mas=array[1..11,1..11] of integer;
var z: mas;
i,j,n,sum: integer;
function min: integer;
var i,j: integer;
begin
min:=z[1,1];
for i:=1 to 11 do
for j:=1 to 11 do
if z[i,j]<min then min:=z[i,j];
end;
begin
clrscr;
randomize;
for i:=1 to 11 do
begin
for j:=1 to 11 do
begin
z[i,j]:=random(100);
write(z[i,j]:4);
end;
writeln;
end;
for i:=1 to 11 do
for j:=1 to 11 do
if z[i,j]=min then
begin
n:=i; exit;
end;
sum:=0;
for j:=1 to 11 do
if z[n,j]>0
then sum:=sum+z[n,j];
write('Srtoka: ',n,' Summa: ',sum);
end.

1. Пыталась написать:

Pascal

function min(m: mas): integer;
var i,j: integer;
begin
min:=m[1,1];
for i:=1 to 11 do
for j:=1 to 11 do
if m[i,j]<min then min:=m[i,j];
end;

Здесь была ошибка: неверное количество фактических параметров.

1. Заменила на

Pascal

function min: integer;
var i,j: integer;
begin
min:=z[1,1];
for i:=1 to 11 do
for j:=1 to 11 do
if z[i,j]<min then min:=z[i,j];
end;

Теперь пишет ошибка 202: переполнение стека.

Что я делаю неправильно? Как исправить? Помогите.

@True_LyaLya · 23.01.2013, 04:28

Если есть вопросы - спрашивай

Pascal

uses crt;
const x=11;
label m1;
type mas=array[1..x,1..x] of integer;
var z: mas;
i,j,n,sum: integer;
 
function min(m: mas): integer;
var i,j,minE: integer;
begin
minE:=m[1,1];
for i:=2 to x do
for j:=1 to x do
//begin
if (m[i,j]< minE) then
minE:=m[i,j];
//end;
min:=minE;
end;
 
begin
clrscr;
randomize;
for i:=1 to x do
begin
for j:=1 to x do
begin
z[i,j]:=random(100);
write(z[i,j]:4);
end;
writeln;
end;
 
for i:=1 to x do
for j:=1 to x do
if (z[i,j]=min(z)) then
begin
n:=i;
GoTo m1;
end;
 
m1:
sum:=0;
for j:=1 to x do
if z[n,j]>0
then sum:=sum+z[n,j];
write('Srtoka: ',n,' Summa: ',sum);
end.

@Paster Fob · 23.01.2013, 06:44

Pascal

const
  size=11;
 
type
  tmatrix=array [1..size,1..size] of integer;
  tarray=array [1..size] of integer;
 
procedure creatematrix(var az:tmatrix);
var
  i,j:byte;
begin
  for i:=1 to size do begin
    for j:=1 to size do begin
      az[i,j]:=random(100)-50;
      write(az[i,j]:4);
    end;
    writeln;
  end;
end;
 
function findmin(var az:tmatrix):byte;
var
  min:integer;
  i,j:byte;
begin
  min:=az[1,1];
  for i:=1 to size do
    for j:=1 to size do
      if az[i,j]<min then begin
        min:=az[i,j];
        findmin:=i;
      end;
  writeln('минимальный элемент = ',min);
end;
 
function sumrow(var az:tarray):integer;
var
  sum:integer;
  i:byte;
begin
  sum:=0;
  for i:=1 to size do
    if az[i]>0 then
      sum:=sum+az[i];
  sumrow:=sum;
end;
 
var
  z:tmatrix;
  ind:byte;
 
begin
  randomize;
  creatematrix(z);
  writeln;
  ind:=findmin(z);
  writeln('строка ',ind);
  writeln('сумма положительных элементов = ',sumrow(z[ind]));
  readln
end.

@Mila6777 · 23.01.2013, 13:39 **[ТС]**

Сделала так:

Pascal

uses crt;
type mas=array[1..11,1..11] of integer;
var z: mas;
i,j,n,sum: integer;
 
function min (m: mas): integer;
var i,j,min_el: integer;
begin
min_el:=m[1,1];
for i:=1 to 11 do
for j:=1 to 11 do
begin
if m[i,j]<min_el then min_el:=m[i,j];
end;
min:=min_el;
end;
 
begin
clrscr;
randomize;
for i:=1 to 11 do
begin
for j:=1 to 11 do
begin
z[i,j]:=random(100)-50; {действительно, стоит ли искать положительные элементы среди чисел от 1..99?}
write(z[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to 11 do
for j:=1 to 11 do
if z[i,j]=min(z) then begin
n:=i; 
break; {чтобы не использовать label}
end;
sum:=0;
for j:=1 to 11 do
if z[n,j]>0
then sum:=sum+z[n,j];
writeln('Минимальный элемент: ',min(z));
writeln('Строка: ',n);
writeln('Сумма положительных элементов строки: ',sum);
readln;
end.

Всем спасибо!!!

Как я поняла, использование константы в массиве позволяет не копировать значения в подпрограмму?

Оставила как было у меня, ибо 'работает'.

True_LyaLya, почему выбрасываем первую строчку (i:=2) при поиске минимального элемента?

Paster Fob, отметила для себя несколько важных моментов.

Вычислить сумму положительных элементов строки, в которой находится минимальный элемент матрицы

Решение

Решение

Опции темы