Цитата:
Сообщение от sunbrigt
Помогите пожалуйста.
Даны натуральное число n, целочисленная квадратная матрица порядка n. Получить b1, ... , bn, где bi – это сумма элементов, предшествующих последнему отрицательному элементу i-й строки (если все элементы строки не отрицательны, то принять bi=1)
|
Пожалуйста:
Код:
CONST
N=10;
VAR
A:Array[1..N,1..N] of INTEGER;
B:Array[1..N] of INTEGER;
C:Array[1..N] of BOOLEAN;
i,j:Integer;
BEGIN
For i:=1 to N do
begin
B[i]:=1;
C[i]:=false;
end;
Randomize;
For i:=1 to N do
begin
For j:=1 to N do
begin
A[i,j]:=Random(60)-10;
Write(A[i,j]:4);
If A[i,j]<0 then C[i]:=true;
end;
WriteLn;
end;
WriteLn;
For i:=1 to N do
begin
If C[i] then
begin
B[i]:=0;
j:=1;
While (A[i,j]>=0) and (j<=N) do
begin
B[i]:=B[i]+A[i,j];
Inc(j);
end;
end;
Write(B[i]:4);
end;
WriteLn;
ReadLn;
END.