Определить есть ли отрицательные элементы в матрице

@starm · Регистрация: 09.11.2009

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

Парни помогите с задачей!
Дана целочисленная матрица А(m*n). Определить есть ли отрицательные элементы в матрице А, и если есть, то выдать соответствующее сообщение. Выполнить замену их:
а) нулём, если таких элементов >3;
б) единицей, если таких элементов <=3.
Я саму задачу сделал, только без пунктов а) и б).

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j,k:byte;
begin
clrscr;
write('Количество строк m=');
readln(m);
write('Количество столбцов n=');
readln(n);
for i:=1 to m do
 for j:=1 to n do
  a[i,j]:=random(10)-5;
writeln('исходная матрица*');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j],' ');
  writeln;
 end;
for i:=1 to m do
for j:=1 to n do
if a[i,j]<0 then
inc(k);
if k>0 then writeln('Матрица содержит отрицательные элементы');
readln;
end.

Помогите сделать два пункта с помощью процедуры!

Добавлено через 51 минуту
Я уже полностью решил задачю, но без процедур. Помогите народ написать эту программу с процедурой!!!

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,m,i,j,k:byte;
begin
clrscr;
write('Количество строк m=');
readln(m);
write('Количество столбцов n=');
readln(n);
for i:=1 to m do
 for j:=1 to n do
  a[i,j]:=random(10)-2;
writeln('?бе®¤**п ¬*ваЁж*');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j],' ');
  writeln;
 end;
for i:=1 to m do
for j:=1 to n do
if a[i,j]<0 then
inc(k);
if k>0 then writeln('Матрица содержит отрицательные элементы');
if k>3 then
 begin
  for i:=1 to m do
  for j:=1 to n do
    if a[i,j]<0 then
    a[i,j]:=0;
 end
else
 begin
  for i:=1 to m do
  for j:=1 to n do
   if a[i,j]<0 then
   a[i,j]:=1;
 end;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j],' ');
  writeln;
 end;
readln;
end.

@Sanja35 · 14.12.2009, 21:19

Pascal

program minEl;
const nmax=20;
type t_matr=array[1..nmax,1..nmax] of integer;
var a:t_matr;
    n,m,i,j,k:byte;
procedure zamena (var a:t_matr);
var n,m,i,j,k:byte;
begin
write('Количество строк m=');
readln(m);
write('Количество столбцов n=');
readln(n);
for i:=1 to m do
 for j:=1 to n do
  a[i,j]:=random(10)-5;
writeln('исходная матрица*');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j],' ');
  writeln;
 end;
for i:=1 to m do
for j:=1 to n do
if a[i,j]<0 then
inc(k);
if k>0 then writeln('Матрица содержит ',k ,' отрицательнх элементов');
if k>3 then 
for i:=1 to m do
for j:=1 to n do
if a[i,j]<0 then
a[i,j]:=0;
 
if k<3 then 
for i:=1 to m do
for j:=1 to n do
if a[i,j]<0 then
a[i,j]:=1;
 
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j],' ');
  writeln;
 end;
readln;
end;
begin
zamena(a);
end.

@starm · 14.12.2009, 21:41 **[ТС]**

Sanja35, я только не пойму в твоём варианте задачи зачем нужна процедура. Текст программы остался такимже.

@starm 8 / 8 / 8 Регистрация: 09.11.2009 Сообщений: 44
	14.12.2009, 21:41 [ТС]	3
	Sanja35, я только не пойму в твоём варианте задачи зачем нужна процедура. Текст программы остался такимже. 0