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

Предыдущий
вопрос Следующий
вопрос

var a:array[1..20]of integer;

i,k1,k2,k3,m,p:integer;

begin

writeln('');

for i:=1 to 20 do begin

a[i]:=-10+random(21);

write(a[i]:3); end;

writeln;

write('введите индексы двух элементов');

readln(k1,k2);

if (a[k1]>0)and(a[k2]>0)

then begin m:=a[k1];a[k1]:=a[k2];a[k2]:=m;end

else begin writeln('введите индекс другого элемента');

readln(k3);

p:=a[k3];a[k3]:=a[1];a[1]:=p;end;

writeln('измененный массив');

for i:=1 to 20 do write(a[i]:3);

end.