Помогите с задачей

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

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

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

Pascal

Program Pr3;
uses crt;
const n = 4;
var a:array[1..100,1..100]of integer;
i,j,s:integer;
procedure mas;
begin
for i:=1 to n do
    begin
    writeln;
    for j:=1 to n do
       begin
       write(a[i,j],' ');
       if j<i then
       s:=s+a[i,j];
       end;
    end;
 
end;
 
Begin
   s:=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;
writeln('summa - ', s);
readln;
end.

	23.01.2012, 19:05