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

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

+4
Ответы (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). Вывести ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Во имя радостных мессий, помогите хоть одну задачку. Не шарю ( Дан массив из 15 элементов. Необходимо заполнить его с помощью оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести произведение всех элементов
Ответы (1)
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива. 2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива. 3.
Ответы (1)
Дан массив из n элементов. Необходимо определить, есть ли в данном массиве два соседних элемента, равных заданному числу k ? Если есть, то вывести индексы первой такой пары чисел.
Ответы (1)
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)