Решите на паскале. дано пятизначное число, если первая цифра больше последней то найти произведение 2-й и 4-й цифр, иначе поменять местами 3-ю и 5-ю цифры местами.

1)const n=5;   var a: array[1..n] of byte; k,i: integer; beginwriteln('введите числа , для изменения кол-ва вводимых чисел изменить в 1-ой строчке с 5на любое значение > 2 '); for i: =1 to n do readln(a[i]); for i: =1 to n doif a[i] div 10 > a[i] mod 10 then inc(k);   write(k); end. 2)const n=5;   var a,b: array[1..n] of byte; sr,max,k,i: integer; beginwriteln('для изменения кол-ва чисел изменить в 1-ой строчке с 5на любое значение > 2 '); for i: =1 to n do a[i]: =random(100); for i: =1 to n do b[i]: =a[i]; for i: =1 to n do max: =max+a[i]; sr: =max div n; writeln('начальный массив'); for i: =1 to n do writeln(a[i]); write('сред арифм= ',sr); writeln; for i: =1 to n do if sr> b[i] then b[i]: =0; for i: =1 to n do writeln(b[i]); end.

n - кол-во элементов в массиве, a[] - сам массив.

алгоритм работает в тупую за o(n²)

вот весь алгоритм:

for (int i = 0; i < n; i++) {

    for (int j = i - 1; j > = 0; {

        int flag = 1;

        if (a[j] == a[i]) {

            flag = 0;

            break

        }

    if (flag)

        a[i] = 0;