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

@schai · Регистрация: 14.11.2012

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

Дана матрица А[5,3], содержащая положительные и отрицательные элементы.
1) Определить в какой строке более одного отрицательного элемента и заменить элементы этой строки числом 5. Затем вывести матрицу.
2) Определить количество положительных и отрицательных элементов матрицы и записать их в одномерный массив. Вывести массив.

как сделать эти условия в паскале.. не получается у меня воще...

вот как бы 2 условие сделала, ток не до конца, а как тут сделать 1 условие??

Pascal

program mas;
var
i,j,ipol,iotr:integer;
x:array[1..5,1..3]of integer;
begin
ipol:=0;
iotr:=0;
Randomize;
For i:=1 to 5 do
For j:=1 to 3 do x[i,j]:=Random(10)-5;
For i:=1 to 5 do
begin
For j:=1 to 3 do write(x[i,j],' ');
writeln;
end; 
begin
if x[i,j] < 0 then 
iotr:=iotr+1;
if x[i,j] > 0 then 
ipol:=ipol+1;
end;
writeln('kolvo pol ',ipol);
writeln('kolvo otr ',iotr);
readln;
end.

@CodeR · 14.11.2012, 14:28

Pascal

program mas;
var
i,j,t,p:integer;
x:array[1..5,1..3]of integer;
K:array[1..2] of integer;
begin
K[1]:=0;
K[2]:=0;
Randomize;
For i:=1 to 5 do
For j:=1 to 3 do x[i,j]:=Random(10)-5;
For i:=1 to 5 do
begin
For j:=1 to 3 do write(x[i,j],' ');
writeln;
end;
For i:=1 to 5 do
begin
t:=0;
For j:=1 to 3 do 
begin
if x[i,j] < 0 then 
K[1]:=K[1]+1;
if x[i,j] > 0 then 
K[2]:=K[2]+1;
if x[i,j]<0 then t:=t+1;
end;
if t>1 then p:=i;
End;
if p>0 then 
Begin
writeln('Более одного элемента отриц-го в строке ',p);
For j:=1 to 3 do
X[p,j]:=5;
For i:=1 to 5 do
begin
For j:=1 to 3 do write(x[i,j],' ');
writeln;
end;
End
else writeln('Нету строки с более одним элементом отриц-ым ');
writeln('kolvo pol ',K[2]);
writeln('kolvo otr ',K[1]);
readln;
end.

@schai · 14.11.2012, 18:20 **[ТС]**

Сообщение от Artem7

Pascal

program mas;
var
i,j,t,p:integer;
x:array[1..5,1..3]of integer;
K:array[1..2] of integer;
begin
K[1]:=0;
K[2]:=0;
Randomize;
For i:=1 to 5 do
For j:=1 to 3 do x[i,j]:=Random(10)-5;
For i:=1 to 5 do
begin
For j:=1 to 3 do write(x[i,j],' ');
writeln;
end;
For i:=1 to 5 do
begin
t:=0;
For j:=1 to 3 do 
begin
if x[i,j] < 0 then 
K[1]:=K[1]+1;
if x[i,j] > 0 then 
K[2]:=K[2]+1;
if x[i,j]<0 then t:=t+1;
end;
if t>1 then p:=i;
End;
if p>0 then 
Begin
writeln('Более одного элемента отриц-го в строке ',p);
For j:=1 to 3 do
X[p,j]:=5;
For i:=1 to 5 do
begin
For j:=1 to 3 do write(x[i,j],' ');
writeln;
end;
End
else writeln('Нету строки с более одним элементом отриц-ым ');
writeln('kolvo pol ',K[2]);
writeln('kolvo otr ',K[1]);
readln;
end.

Спасибо большое, вы мне очень помогли...)

	14.11.2012, 18:20

Опции темы