Укажите варианты, содержащие верную запись числа:
А) 35340(5) Б) 2101(4) В) 3951(9) Г) (16)

const n=5;

procedure Swap(var a,b:integer);

var tmp:integer;

begin

tmp:=a;

a:=b;

b:=tmp;

end;

var a:array[0..n-1,0..n-1] of integer;

   i,j,k:byte;

   x:integer;

begin

writeln('Исходная матрица:');

for i:=0 to n-1 do

begin

 for j:=0 to n-1 do

  begin

   read(a[i][j]);

  end;

end;

for i:=0 to n-1 do

begin

 for j:=0 to n-1 do

  begin

   write(a[i,j]:3);

  end;

 writeln;

end;

//сортировка всей матрицы по возрастанию

for i:=0 to n*n-2 do

for j:=i+1 to n*n-1 do

if a[i div n,i mod n]>a[j div n,j mod n]

then Swap(a[i div n,i mod n],a[j div n,j mod n]);

writeln('Отсортированная матрица по возрастанию');

for i:=0 to n-1 do

begin

 for j:=0 to n-1 do

 write(a[i,j]:3);

 writeln;

end;

end.

// РЕШЕНИЕ ЗАДАЧ Telegram: @Vadukk

Объяснение:

Пол =”д” И Рост > 178 И Год рождения > 2002.

if(

 Пол == ”д” &&

 Рост > 178 &&

 Год рождения > 2002.

)

Пол =”д” ИЛИ Рост > 178 ИЛИ Год рождения < 2000.

if(

 Пол == ”д” ||

 Рост > 178 ||

 Год рождения < 2000.

)

Пол =”м” ИЛИ Рост > 178 И Год рождения < 2000.

if(

 Пол == ”м” &&

 Рост > 178 &&

 Год рождения < 2000.

)

Пол =”д” И Рост > 178 И Год рождения < 2000.

if(

 Пол == ”д” &&

 Рост > 178 &&

 Год рождения < 2000.

)