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

@Basill007 · Регистрация: 20.01.2012

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

Условие. Дан двумерный массив. Определить в нем количество положительных элементов, расположенных в некоторой строке.(т.е. чтобы строку самому выбрать можно, в какой считать).
начало есть не могу продолжить с выбора строки.

Pascal

Program P1;
Uses CRT;
Const n=4;
var a:array[1..100,1..100]of integer;
i,k,j:integer;
procedure mas;
begin
      for i:=1 to n do
        begin
        writeln;
        for j:=1 to n do
          begin
          write(a[i,j],' ');
          end;
        end;
end;
 
Begin Clrscr;
k:=0;
for i:=1 to n do
for j:=1 to n do
  begin
  writeln('введите a[',i,',',j,'] элемент');
  readln(a[i,j]);
  end;
 
 
 
mas;
writeln;
readln;
end.

плиз очень нужно

@stimo15 · 24.01.2012, 03:57

Pascal

Program P1;
Uses CRT;
Const n=4;
var a:array[1..100,1..100]of integer;
i,k,j,buf:integer;
procedure mas;
begin
      for i:=1 to n do
        begin
        writeln;
        for j:=1 to n do
          begin
          write(a[i,j],' ');
          end;
        end;
end;
 
Begin Clrscr;
k:=0;
for i:=1 to n do
for j:=1 to n do
  begin
  writeln('введите a[',i,',',j,'] элемент');
  readln(a[i,j]);
  end;
write('Введите номер строки: ');
readln(buf);
for j:=1 to 5 do
begin
if a[buf,j]>0 then inc(k);
end;
writeln;
writeln('Количество положительных элементов в ',buf,' строке=',k);
mas;
writeln;
readln;
end.

	24.01.2012, 03:57