• Составьте программу, которая заполняет массив А[1..10] случайными целыми числами в диапазоне от 1 до 50, затем меняет местами последний элемент с минимальным элементом. Выведите на экран исходный и полученный массивы.
    Ребята, помогите пожалуйста, хоть часть задачи напишите, а то в информатике я 0
    Заранее спасибо

Ответы 1

  • ОТДЕЛ Задание+;ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";ПЕР  A: РЯД 10 ИЗ ЦЕЛ;  сч, мин, имин: ЦЕЛ;УКАЗ  ОТ сч := 0 ДО РАЗМЕР(A)-1 ВЫП    A[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 49)) + 1;    Вывод.ЧЦел("%d ", A[сч], 0, 0, 0)  КОН;  мин := A[0];  имин := 0;  ОТ сч := 1 ДО РАЗМЕР(A) - 1 ВЫП    ЕСЛИ A[сч] < мин ТО мин := A[сч]; имин := сч КОН  КОН;  сч := A[РАЗМЕР(A) - 1];  A[РАЗМЕР(A) - 1] := A[имин];  A[имин] := сч;  Вывод.Цепь("^");  ОТ сч := 0 ДО РАЗМЕР(A)-1 ВЫП    Вывод.ЧЦел("%d ", A[сч], 0, 0, 0)  КОНКОН Задание.
    • Автор:

      viviana
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years