j = 0
A[0]:=7; A[1]:=3; A[2]:=4;
A[3]:=8; A[4]:=6; A[5]:=9;
A[6]:=5; A[7]:=2; A[8]:=0;
A[9]:=1;
Итерация 1
k = 1
A[k] = A[1] ( 3 = 3 ) Условие A[1] > A[1] не соблюдено
j = 0
Итерация 2
k = 2
A[k] > A[1] ( 4 > 3 ) Условие A[2] > A[1] соблюдено
A[1] := 2
j = 0 + 2
j = 2
Итерация 3
k = 3
A[k] > A[1] ( 8 > 4 ) Условие A[3] > A[1] соблюдено
A[1] := 3
j = 2 + 3
j = 5
Итерация 4
k = 4
A[k] < A[1] ( 6 < 8 ) Условие A[4] > A[1] не соблюдено
j = 5
Итерация 5
k = 5
A[k] > A[1] ( 9 > 8 ) Условие A[5] > A[1] соблюдено
A[1] := 5
j = 5 + 5
j = 10
Итерация 6
k = 6
A[k] < A[1] ( 5 < 9 ) Условие A[6] > A[1] не соблюдено
j = 10
Итерация 7
k = 7
A[k] < A[1] ( 2 < 9 ) Условие A[7] > A[1] не соблюдено
j = 10
Итерация 8
k = 8
A[k] < A[1] ( 0 < 9 ) Условие A[8] > A[1] не соблюдено
j = 10
Итерация 9
k = 9
A[k] < A[1] ( 1 < 9 ) Условие A[9] > A[1] не соблюдено
j = 10
program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.