Задача на матрицы

[Гамбит]

Всем привет. Огромная просьба, ПОМОГИТЕ!!!
вот задача:
Даны четыре целых числа. Определить, можно ли из них составить такую квадратную матрицу, чтобы суммы элементов строк были равными и суммы элементов столбцов были равными и вывести эту матрицу.
(я числа вводил с клавы)

я не знаю как проработать все варианты постановки чисе в матрице, кому не сложно, напишите программу плиииз!!!!!!!
И ещё такое примечание, массивы использовать нельзя!

[Гамбит]

НАРОД НУ ПОМОГИТЕ КТОНИБУДЬ!!!!

[profi]

Давай наработки.

[Гамбит]

program lab_3;
uses crt;
var x1,x2,x3,x4,z,z1,y,y1:integer;
begin
Write('x1=');
Readln(x1);
Write('x2=');
Readln(x2);
Write('x3=');
Readln(x3);
Write('x4=');
Readln(x4);
z:=x1+x2;
z1:=x3+x4;
y:=x1+x3;
y1:=x2+x4;
if (z=z1) and (y=y1) then
Writeln(x1,' ',x2);
Writeln(x3,' ',x4);
Readln;
end.
это то что я сделал, я не знаю правильно ли, но это всё что я смог

[profi]

program lab_3;
uses crt;
var
   i,j,sum_1,sum_2,sum_3,sum_4:integer;
   a:array[1..2,1..2] of integer;
begin
sum_1:=0; sum_2:=0;
for i:=1 to 2 do
for j:=1 to 2 do
    begin
         write('a[',i,',',j,']=');
         readln(a[i,j]);
    end;
sum_1:=a[1,1]+a[1,2];
sum_2:=a[2,1]+a[2,2];
sum_3:=a[1,1]+a[2,1];
sum_4:=a[1,2]+a[2,2];
if (sum_1 = sum_2)and(sum_3 = sum_4) then
   for i:=1 to 2 do
   begin
   for j:=1 to 2 do
       write(a[i,j],' ');
   writeln;
   end;
readln;
end.

[ОДИНОЧЕСТВО В СЕТИ]

можно ли из них составить такую квадратную матрицу, чтобы суммы элементов строк были равными и суммы элементов столбцов были равными

имхо это не то что нужно так как
если вводить числа 1 1 2 2 то ответ вашей проги будет низзя
а верный ответ:

1 2
2 1

ну например введите числа вcz соль в том что числа должны быть одинаковыми (то есть если ввести числа a b с d )
что то вроде такого: писалось прям тут!

var a,b,c,d:integer;
begin
readln(a,b,c,d);
if ((a=b) and (c=d)) then begin
write (a:6,d:6);writeln;
write(c:6,b:6);end else
if ((a=c) and (b=d)) then begin
write (a:6,b:6);writeln;
write(d:6,c:6);end else
if ((b=c) and (a=d)) then begin
write (a:6,b:6);writeln;
write(c:6,d:6);end
else writeln('NO');
readln;end.

---полный код!

[profi]

Исправил

[Гамбит]

народ ну я же написал, что НЕЛЬЗЯ исползовать массивы, можно использовать только if !!!!!!!!!!!!!1

[profi]

program lab_3;
uses crt;
var
   sum_1,sum_2,sum_3,sum_4,x11,x12,x21,x22:integer;
begin
sum_1:=0; sum_2:=0; sum_3:=0; sum_4:=0;
x11:=1; x12:=2; x21:=2; x22:=1;
sum_1:=x11+x12;
sum_2:=x21+x22;
sum_3:=x11+x21;
sum_4:=x12+x22;
if (sum_1 = sum_2)and(sum_3 = sum_4) then
   begin
        writeln(x11,' ',x12);
        writeln(x21,' ',x22);
   end;
readln;
end.

[Гамбит]

у меня 3 вопроса.
первый : переменные i и j ты забыл удалить?
второй : чем это отличается от моего варианта? (кроме того, что ты сразу взял определённые значения)
Третий : почему ты взял определённые значения? ведь они в условии нам не даны