Program Z1;
Var a,b,S:integer;
Begin
Readln(a,b);
S:=a*b;
Writeln(S);
end.
const n=8;
var i,j,v,max,k:integer;
a:array [1..n] of integer = (0,1,9,2,4,3,6,5);
begin
write (' Исходный массив: ');
for i:=1 to n do write(a[i],' ');
writeln;
for i:=1 to n-1 do
begin
max:=i;
for j:=i+1 to n do
if a[j] > a[max] then max:=j;
v:=a[i];
a[i]:=a[max];
a[max]:=v
end;
write ('Преобразованный массив: ');
for i:=1 to n do write(a[i],' ');
end.
123, 132, 213, 231, 321, 312,
723, 732, 273, 237, 327, 372,
173, 137, 713, 731, 371, 317
127, 172, 217, 271, 721, 712
итого 24 числа
Если что непонятно, задавай вопросы