Задан одномерный массив целых чисел. поменять местами первый положительный элемент массива с его первым минимальным элементом

Ответы:

Рита Чеботько

23-05-2015 16:06

var i,temp,pol,minA,min:integer;a:array[1..5] of integer;beginminA:=a[1];for i:=1 to 5 do beginreadln(a[i]);if(a[i]0)and (temp=0)then begin pol:=i; temp:=1; end;end;temp:=a[min];a[min]:=a[pol];a[pol]:=temp;for i:=1 to 5 do write(a[i],); end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя АНУШ ПАВЛЕНКО

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Задан одномерный массив целых чисел. поменять местами первый положительный элемент массива с его первым минимальным элементом» от пользователя АНУШ ПАВЛЕНКО в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!