Var a: array [0..9, 0..9] of real; i, j: integer; begin for i := 0 to 9 do for j := 0 to 9 do a[i, j] := random(999) - 500; for i := 0 to 9 do for j := 0 to 9 do if ((i = j) and (a[i, j] < 0)) then a[i, j] := 0; for i := 0 to 9 do begin writeln(); for j := 0 to 9 do write(a[i,j]:5:0); end; end.
9 литровая бочка - 1 бочка 5 литровая бочка - 2 бочка сначала наливаем из 1 бочки во 2 бочку. в 1 бочке остаётся 4 литра. выливаем воду из 2 бочки. наливаем оставшиеся 4 литра из 1 бочки во 2 бочку. заново наливаем в 1 бочку 9 литров. доливаем 1 литр во 2 бочку и выливаем. в 1 бочке остаётся 8 литров. наливаем во 2 бочку 5 литров и выливаем. в 1 бочке остаётся 3 литра. наливаем 3 литра во 2 бочку, а в 1 бочку наливаем 9 литров. доливаем во 2 бочку 2 литра и выливаем. в 1 бочке остаётся 7 литров воды. наливаем из 1 бочки 5 литров во 2 бочку и выливаем воду из 2 бочки. в 1 бочке остаётся 2 литра, и наливаем эти 2 литра во 2 бочку. наливаем в 1 бочку 9 литров воды и доливаем во 2 бочку 3 литра. в 1 бочке остаётся 6 литров. готово
9 литровая бочка - 1 бочка 5 литровая бочка - 2 бочка сначала наливаем из 1 бочки во 2 бочку. в 1 бочке остаётся 4 литра. выливаем воду из 2 бочки. наливаем оставшиеся 4 литра из 1 бочки во 2 бочку. заново наливаем в 1 бочку 9 литров. доливаем 1 литр во 2 бочку и выливаем. в 1 бочке остаётся 8 литров. наливаем во 2 бочку 5 литров и выливаем. в 1 бочке остаётся 3 литра. наливаем 3 литра во 2 бочку, а в 1 бочку наливаем 9 литров. доливаем во 2 бочку 2 литра и выливаем. в 1 бочке остаётся 7 литров воды. наливаем из 1 бочки 5 литров во 2 бочку и выливаем воду из 2 бочки. в 1 бочке остаётся 2 литра, и наливаем эти 2 литра во 2 бочку. наливаем в 1 бочку 9 литров воды и доливаем во 2 бочку 3 литра. в 1 бочке остаётся 6 литров. готово
i, j: integer;
begin
for i := 0 to 9 do
for j := 0 to 9 do
a[i, j] := random(999) - 500;
for i := 0 to 9 do
for j := 0 to 9 do
if ((i = j) and (a[i, j] < 0)) then a[i, j] := 0;
for i := 0 to 9 do
begin
writeln();
for j := 0 to 9 do write(a[i,j]:5:0);
end;
end.