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

  • Ввести с клавиатуры массив из N вещественных чисел. Найти разность максимального и минимального элементов.
    (Составить программу Pascal)

Ответы 1

  • uses crt;const    N = 10;var    a : array [1..N] of Real;    i : Integer;    max, min : Real;begin    clrscr;    for i := 1 to N do    begin         Write('a[', i,'] = ');         Readln(a[i]);    end;     max := a[1];    min := a[1];    for i := 2 to N do    begin       if max < a[i] then max := a[i];        if min > a[i] then min := a[i];    end;     Writeln(max - min:0:3);    Readln;end.

    • Автор:

      mullins
    • 5 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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