Определить сумму и разность максимального и минимального элементов массива - Pascal ABC

  1. Ввести целочисленный массив, состоящий из 15 элементов. Определить сумму и разность максимального и минимального элементов.


textual

Код:

const
  n = 15;
var
  a : array [1..n] of integer;
  i, max, min : integer;
begin
  max := -maxint;
  min := maxint;
  {ввод и сразу поиск мин. и макс.}
  for i := 1 to n do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
    if a[i] >= max then max := a[i];
    if a[i] <= min then min := a[i]
  end;
  {вывод}
  for i := 1 to n do
    write(a[i]:4);
  writeln;
  writeln('максимум = ', max, ', миниум = ', min);
  writeln('их сумма = ', max + min, ', разность = ', max - min)
end.


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

  1. Вычислить сумму ряда

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

  1. Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.(значения А и В вводятся с клавиатуры)

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

  1. 34. Найти сумму положительных целых чисел, меньших 100

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

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

  1. Дано числовую последовательность (100, 97, 94, ...). Найти сумму 30-ти членов последовательности чисел

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!