Найти, сколько положительных элементов содержит заданная матрица в каждой строке.

@Дэрианна · Регистрация: 04.10.2009

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

Задана квадратная матрица A размером N x N (N<=10), состоящая из действительных элементов. Найти, сколько положительных элементов содержит данная матрица в каждой строке.

Pascal

program rabi;
var
i,j:integer;
p: real;
a: array[1..10,1..10]of real;
begin
Randomize;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a[i,j]:=Random(50);
end;
end;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
write (a[i,j],' ');
end;
writeln;
end;
end.

@Lyohich84 · 15.06.2010, 14:03

И не забудьте объявить переменную k типа integer или byte. Вопрос: зачем нужна переменная p типа real?

Pascal

for i:=1 to 10 do
 begin
  k:=0
  for j:=1 to 10 do
   if a(i,j)>0 then k:=k+1;
  writeln('stroka ',i,' soderzhit ',k,' polozhitelnih elementov');
 end;

@mamedovvms · 15.06.2010, 14:16

Сообщение от Дэрианна

состоящая из действительных элементов.

Сообщение от Дэрианна

a[i,j]:=Random(50);

по моему это противоречит условию задачи

@Lyohich84 · 15.06.2010, 14:22

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

по моему это противоречит условию задачи

Да, тогда наверно так

Pascal

1	a[i,j]:=random*50

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	15.06.2010, 14:16	3
	Сообщение от Дэрианна состоящая из действительных элементов. Сообщение от Дэрианна a[i,j]:=Random(50); по моему это противоречит условию задачи 0

Опции темы