Паскаль.Двухмерные массивы

[D.bohlen]

Требуется написать программу, в которй нужно для каждой строки двухмерного массива 6 × 4 посчитать количество положительных элементов
кто знает-напишите пожалуйста
заранее спасибо

[Stilet]

Принцип:
http://www.programmersforum.ru/showthread.php?t=64545
Вот еще:
http://www.programmersforum.ru/showthread.php?t=29791

[D.bohlen]

Там не совсем то.Именно кол-во положительных элементов ДЛЯ КАЖДОЙ строки.Программка то небольшая

[Stilet]

Именно кол-во положительных элементов ДЛЯ КАЖДОЙ строки

Ты бы хоть попытался...
Там же смысл в цикле втором if a[i,j]>0 then inc(Переменную_Счетчик)

[D.bohlen]

ну может кто написать?

[Grag]

Я могу написать...

[D.bohlen]

выложите пожалуйста

[Ol'ga_new]

...
for i:=1 to 6 do
begin
kol:=0;
for j:=1 to 4 do
if a[i][j]>0 then kol:=kol+1;
if kol>0 then
writeln('в ',i, ' строке ',kol,'положительных эл-тов')
else writeln('в ',i,' строке нет положительных эл-тов!')
...

[Stilet]

От горе.... Лентяйничать пионеры повадились...

var a:array[1..4,1..6] of integer;e:integer;
q,w:byte;
begin
 for q:=1 to 4 do begin
  for w:=1 to 6 do begin
    a[q,w]:=10-random(20);
    if a[q,w]>0 then inc(e);
    write(a[q,w]:5);
  end;
  writeln(e:10);e:=0;
 end;
 Readln;
end.

[D.bohlen]

а где здесь подсчет самой суммы в каждой строке?