Const n = 3; k = 3; var i,j,s1,s2:integer; a:array[1..n,1..k] of integer; begin s1:=0; s2:=0; for i:=1 to n do for j:=1 to k do begin Writeln('Введите a[',i,',',j,']:'); readln(a[i,j]); if (a[i,j]>0) and (i<>j) then s1:=s1+a[i,j]; if (a[i,j]<0) and (i<>j) then s2:=s2+a[i,j]; end; if s1>s2 then for j:=1 to k do begin a[1,j]:=s1; a[n,j]:=s1; end; if s2>=s1 then for i:=1 to n do begin a[i,1]:=s2; a[i,k]:=s2; end; writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to k do write('a[':4,i,',',j,']=',a[i,j]); writeln; end; end.
Человек. Тут все просто. :)
Объяснение:
"А" меньше 0?
ответ: нет, она больше 0. (Т.е.: А=8)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=8-2=6
ответ: В=6
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=8-2=6
ответ: А=6
ответ: А=6; В=6Теперь мы это все повторяем в том же духе, только до того момента пока значение буквы "А" не станет меньше "0".
Значит повторяем:
"А" меньше 0?
ответ: нет, она больше 0. (Т.е.: А=6)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=6-6=0
ответ: В=0
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=6-2=4
ответ: А=4
ответ: А=4; В=0"А" меньше 0?
ответ: нет, она больше 0. (Т.е.: А=4)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=4-0=4
ответ: В=4
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=4-2=2
ответ: А=2
ответ: А=2; В=4"А" меньше 0?
ответ: нет, она больше 0. (Т.е.: А=2)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=2-0=2
ответ: В=2
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=2-2=0
ответ: А=0
ответ: А=0; В=2"А" меньше 0?
ответ: нет, она на равне с 0. (Т.е.: А=0)
Значит ты идешь вниз по стрелочке "нет".
Дальше формула:
В=А-В
Значит: В=0-0=0
ответ: В=0
Тоже самое делаем с буквой "А":
А=А-2
Значит: А=0-2=-2
ответ: А=-2
ответ: А=-2; В=0Значит мы условия выполнили! "А" меньше 0.Удачи!n = 3;
k = 3;
var
i,j,s1,s2:integer;
a:array[1..n,1..k] of integer;
begin
s1:=0;
s2:=0;
for i:=1 to n do
for j:=1 to k do
begin
Writeln('Введите a[',i,',',j,']:');
readln(a[i,j]);
if (a[i,j]>0) and (i<>j) then s1:=s1+a[i,j];
if (a[i,j]<0) and (i<>j) then s2:=s2+a[i,j];
end;
if s1>s2 then
for j:=1 to k do
begin
a[1,j]:=s1;
a[n,j]:=s1;
end;
if s2>=s1 then
for i:=1 to n do
begin
a[i,1]:=s2;
a[i,k]:=s2;
end;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to k do
write('a[':4,i,',',j,']=',a[i,j]);
writeln;
end;
end.