Определить среднее арифметическое чисел, расположенных между первым из минимальных и последним из максимальных - Pascal ABC

  1. Составить программу для решения предложенной задачи. N натуральных чисел вводится в массив (N – задано и не более 100). Определить среднее арифметическое чисел, расположенных между первым из минимальных и последним из максимальных чисел (границы включать). Предусмотреть проверку правильности ввода информации.


textual

Код к задаче: «Определить среднее арифметическое чисел, расположенных между первым из минимальных и последним из максимальных - Pascal ABC»

var
  a : array [1..100] of integer;
  i, min, max, imax, imin, N, k : integer;
  s : real;
 begin
  randomize;
  {вводим N}
  repeat
    write('введите N: ');
    readln(N);
    if not (N in [2..100]) then writeln('ошибка ввода!')
  until N in [2..100];
  {заполняем массив, выводим}
  writeln('исходный массив');
  for i := 1 to N do
  begin
    a[i] := random(1000);
    write(a[i]:5)
  end;
  writeln;
  min := 10000;
  max := -10000;
  {определяем положение первого минимального}
  for i := N downto 1 do
    if a[i] < min then
    begin
      min := a[i];
      imin := i
    end;
  {определяем положение последнего максимального}
  for i := 1 to N do
    if a[i] > max then
    begin
      max := a[i];
      imax := i
    end;
  writeln('первый минимальный элемент: A[', imin, '] = ', a[imin]);
  writeln('последний максимальный элемент: A[', imax, '] = ', a[imax]);
  {поиск среднего между ними}
  k := 0;
  for i := imin to imax do
  begin
    s := s + a[i];
    inc(k)
  end;
  writeln('среднее арифметическое: ', (s / k):0:4);
  readln
end.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.000 из 5



Похожие ответы
  1. нужная область-заштрихованная. радиус равен 4

  1. Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.

  1. Доброго времени суток программисты! Вот такая задачка вызвала затруднение: С клавиатуры вводятся четыре пары координат точек в произвольном порядке(гарантируется, что они не лежат на одной прямой), определить являются ли эти точки вершинами параллелограмма. Подскажите пожалуйста с программой или с алгоритмом осуществления, заранее благодарен.

  1. 29. Определить, заканчивается ли заданное натуральное число на нечетную цифру

  1. 2)Определить какая буква о или а входит в него чаще и на сколько их надо написать множеством

  1. Зада ) Багаж пассажира характеризуется количеством и общей массой вещей. Дан файл Bagazh, содержащий сведения о багаже нескольких пассажиров. Сведения о багаже каждого пассажира представляют собой запись с двумя полями: одно поле целого типа (количество вещей) и одно поле действительное (масса вещей в килограммах). Определить: а) число пассажиров, имеющих более двух вещей, и число пассажиров, количество вещей, которых превосходит среднее; б) имеется ли пассажир, багаж которого состоит из одной вещи массой менее Т [кг]. файл должен создаваться программой

  1. ЦЕЛЬ : Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в варианте. Исходные данные считывать из предварительно подготовленного файла. Данные в файле задать самостоятельно, учитывая специфику задачи. Размерность массива должна определяться программой исходя из формата файла-источника. Задана квадратная матрица A размером N x N (N<=10), состоящая из действительных элементов. 3) Найти среднее арифметическое элементов каждой из строк этой матрицы. помогите пожалуйста,умоляю молю, работа с файлом т.е матрица в текстовом доке, буду рад любой помощи

  1. Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

  1. Помогите, пожалуйста, с программой Даны натуральное число n, целые числа а1,…,аn (последовательности идущих подряд членов), состоящие из степеней пятерки. Определить процедуру, позволяющую распознавать степень пятерки. Программу оформить в виде диалога. Выход из программы – нажатием Esc.

  1. Определить количество отрицательных элементов в тех строках, которые содержат хотя бы один нулевой элемент.