Задать вопрос

Дана последовательность из n вещественных числе найти разность между max и min (Pascal ABC)

+1
Ответы (1)
  1. 5 января, 08:15
    0
    program zz1;

    const n = 4; / /задаем количество элементов в последовательности

    var max, min:real; / / задаем переменные целого типа

    i:integer;

    m:array [1 ... n] of real;

    begin

    for i:=1 to n do / / организуем цикл, в котором введем с клавиатуры n заданных чисел в последовательность

    read (m[i]);

    min:=1000000; / /задаем начальное значение для минимального и максимального элемента последовательности

    max:=0;

    for i:=1 to n do

    begin

    if m[i] > max then max:=m[i];

    if m[i] < min then min:=m[i];

    end;

    writeln (' разница между максимальным и минимальным элементами = ', max-min); / / выводим ответ

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Дана последовательность из n вещественных числе найти разность между max и min (Pascal ABC) ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы