1-4
2-1
3-2
4-5
5-3
(хотя с региональной сетью в вопросе косяк)
uses crt;
var
a:array[1..7,1..10] of integer;
b,i,j:integer;
begin
clrscr;
randomize();
//заполнение массива случайными числами
for i:=1 to 7 do
for j:=1 to 10 do
begin
a[i,j]:=random(10);
end;
//вывод массива
for i:=1 to 7 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
//удаляем строку 6 и меняем 5 и 2 строки местами
for j:=1 to 10 do
begin
a[6,j]:=a[7,j];
a[7,j]:=0;
b:=a[5,j];
a[5,j]:=a[2,j];
a[2,j]:=b;
end;
writeln('Отредактированный массив');
//выводим отредактированный массив
for i:=1 to 6 do
begin
for j:=1 to 10 do
write(a[i,j]:3,' ');
writeln();
writeln();
end;
readln();
end.
Вот верный ответ:
101101,01₂=2D,4
P:=a*b*c;
if(p>=10) then writeln(p) else writeln("Произв. меньше 10");
Все числительные в стихотворении даны в двоичной системе счисления:
1100(2) = 2^3+2^2 = 8+4 = 12(10)
101(2) = 2^2+2^0 = 5(10)
100(2) = 4(10)
10(2) = 2(10)