16,13(10 с/с)->(16 c/c) =10.2147АЕ147АЕ1000
Непосредственно сортировка:
for (i = 0; i < N; i++)
for (j = 1; j < N - i ; j--)
if (<span>a[i,i] > a[i+1, i+1] </span>)
{
int temp = a[i,i];
a[i,i] = a[i - 1, i - 1];
a[i - 1, i - 1] = temp;
}
Можеь быть круговые если ты ошибся в седьмой
Program
Title;
Var i, A, B
:Integer;
Begin
WriteLn('Введите первое число');
ReadLn(A);
WriteLn('Введите второе число');
ReadLn(B);
If a>b
then writeln(a+b) else writeln(a*b)
Writeln('Задача решена')
End.