Вопрос по информатике:
Найти минимальный элемент массива,отсортировать по возрастанию и поставить минимальный элемент на последнее место (конец массива)
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
Дописать программу,чтобы первый элемент стал последним.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.08.2015 12:11
- Информатика
- remove_red_eye 12608
- thumb_up 34
Ответы и объяснения 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.