Выполнить на ПАСКАЛЕ!! Известны данные среднемесячной зароботной платы продавцов в трех магазинах райпо. Определить среднее значение зароботной платы в этих магазинах. ​

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";

ПЕР
  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)
  КОН

КОН Задание.

1) Просыпаешься- завтракаешь - идешь в школу - находишься в школе - идешь домой - обедаешь - делаешь домашнее задание - занимаешься досугом и работой по дому - идешь спать

2) "Посадил дед репку..." Тянуть репку - если репку не вытянули - увеличить количество тянущих - повторять, пока не вытянешь

3) Начинаем изучать новую тему - изучаем теорию - переходим к практике/решению примеров с нарастанием по сложности - выполняем домашнее задание - выполняем самостоятельную и проверочную работы - исправляем найденные ошибки - повторяем, пока не изучим школьную программу