• Найти медиану в массиве 15 случайных чисел от 0 до 10 в паскале, спс

Ответы 1

  • var mas:array[1..16] of integer; i,k:integer; begin randomize; for i:=1 to 15 do begin mas[i]:=random(11); write (' ',mas[i],' '); end; writeln; for k:=1 to 15 do begin for i:= 1 to 15 do if mas[i]>mas[i+1] then swap(mas[i],mas[i+1]); end; writeln ('Медиана массива равна ',mas[9]); end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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