Найти минимальный элемент массива,отсортировать по возрастанию и поставить мини??альный элемент на последнее место (конец массива) Program z1; uses crt; Var mas:array [1..50] of integer,I,j,integer; Begin Randomize; For i:= 1 to 50 do mas[i]:=random(200); For i:=1 to 49 do For i:=49 downto i do If A[J+1 m:=A[J];A[J+1]:=A[j+1];=m; End Дописать программу,чтобы первый элемент стал последним.
?альный элемент на последнее место (конец массива) Program z1; uses crt; Var mas:array [1..50] of integer,I,j,integer; Begin Randomize; For i:= 1 to 50 do mas[i]:=random(200); For i:=1 to 49 do For i:=49 downto i do If A[J+1 m:=A[J];A[J+1]:=A[j+1];=m; End Дописать программу,чтобы первый элемент стал последним.
Ответы:
19-11-2018 13:21
Решение в прикрепленном файле.
Также наши пользователи интересуются:
Помогите с уравнением срочно надо!!)))))Do you read any foreign literature
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Найти минимальный элемент массива,отсортировать по возрастанию и поставить мини?» от пользователя АЛЁНА СОЛОМАХИНА в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!