Задать вопрос Регистрация
Помочь другим

  • дан масив из 10 целых положительных чисел, заполненный с клавиатуры. Найти максимальный и минимальный элемент в массиве и определить, на сколько максимальный элемент больше минимального.

Ответы 1

  • const m = 10;

    var arr: array[1..m] of integer; i, j, k,r: integer;

    begin

    for i := 1 to m do begin read (arr[i]); end; for i := 1 to m-1 do for j := 1 to m-i do if arr[j] > arr[j+1] then begin k := arr[j]; arr[j] := arr[j+1]; arr[j+1] := k end;

    for i := 1 to m do write (arr[i]:4);r:=arr[10]-arr[1]; write (' ',r); writeln;

    readlnend.

    • Автор:

      warren9
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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