Задать вопрос
17 марта, 07:58

Найти наибольшее и наименьшее значения, их индексы и среднее арифметическое элементов, расположенных между ними в массиве A (n). Вывести массив, среднее арифметическое, наименьшее и наибольшее значения и их индексы.

+5
Ответы (1)
  1. 17 марта, 08:13
    0
    Pascal

    const

    n = 5;

    var

    a : array [1 ... n] of integer;

    b, m, ib, im : integer;

    i : integer;

    k : integer;

    sr : real;

    begin

    a[1] : = 5; a[2] : = 8;

    a[3] : = 7; a[4] : = 6;

    a[5] : = 10;

    b : = a[1]; m : = a[1];

    ib : = 1; im : = 1;

    for i : = 2 to n do

    if a[i] > b then

    begin

    b : = a[i];

    ib : = i;

    end

    else

    if a[i] < m then

    begin

    m : = a[i];

    im : = i;

    end;

    sr : = 0;

    k : = 0;

    if ib > im then

    for i : = im + 1 to ib - 1 do

    begin

    sr : = sr + a[i];

    k : = k + 1;

    end

    else

    for i : = ib + 1 to im - 1 do

    begin

    sr : = sr + a[i];

    k : = k + 1;

    end;

    sr : = sr/k;

    writeln () ;

    for i : = 1 to n do

    write (a[i],' ') ;

    writeln () ;

    writeln ('sr=', sr:3:3) ;

    writeln () ;

    writeln ('max=', b,' index = ', ib) ;

    writeln ('min=', m,' index = ', im) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найти наибольшее и наименьшее значения, их индексы и среднее арифметическое элементов, расположенных между ними в массиве A (n). Вывести ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы