Дан одномерный целочисленный массив mas. поменять местами два элемента массива с номерами k1 и k2, если оба этих элемента положительны. иначе – запросить у пользователя индекс ещё одного элемента k 3 и поменять его местами с первым элементом массива. вывести на экран итоговый массив в строку.

//pascal abc.net v3.1 сборка 1219 const   n=10;   var   ar: array[1..n] of integer;   k1,i,c,k2,k3: integer; begin   randomize;   writeln('first array: ');   for i: =1 to n do   begin     ar[i]: =random(9)-3;     write(ar[i]: 4);   end;   writeln;   write('enter index 1: '); readln(k1);   write('enter index 2: '); readln(k2);   if (ar[k1]> 0) and (ar[k2]> 0) then   begin     c: =ar[k1];     ar[k1]: =ar[k2];     ar[k2]: =c;   end   else   begin     write('enter index 3: '); readln(k3);     c: =ar[1];     ar[1]: =ar[k3];     ar[k3]: =c;   end;   writeln('final array: ');   for i: =1 to n do   write(ar[i]: 4); end. пример работы программы: first array:   -1   -1   1   -1   0   -1   -2   -2   5   -2 enter index 1: 9 enter index 2: 1 enter index 3: 7 final array:   -2   -1   1   -1   0   -1   -1   -2   5   -2

Ввести n а=n c=0 x=1 пока a< > 0   x=x+c c=c+1 a=a-1 кц пока