Помогите пожалуйста, нужно сделать в паскале, в экселе, и блок-схему!(задание номер 5 **...

Question

Помогите пожалуйста, нужно сделать в паскале, в экселе, и блок-схему!
(задание номер 5 на фото)

Дан одномерный массив А размерностью 16. Определить максимальное значение среди нечетных элементов массива, и минимальное среди четных элементов массива. Получить сумму максимального и минимального значений элементов массива и преобразовать данный массив по принципу из значений нечетных элементов вычесть сумму, а к четным элементам прибавить сумму. Все первоначальные элементы массива вводятся с клавиатуры.

---

Answer 1

Const
  n = 16;

var
  a: array[1..n] of integer;
  i, min, max, k: integer;

begin
  min := 32767; {полагаем, что в массиве нет большего числа}
  max := -32768; {полагаем, что в массиве нет меньшего числа}
  Writeln('Введите через пробел 16 элементов массива');
  for i := 1 to n do
  begin
    Read(a[i]);
    if max < a[i] then max := a[i]
    else if min > a[i] then min := a[i]
  end;
  k := min + max;
  Writeln('Результирующий массив');
  for i := 1 to n do
  begin
    if (i mod 2) = 1 then a[i] := a[i] - k
    else a[i] := a[i] + k;
    Write(a[i]:4)
  end
end.

Тестовое решение:

Введите через пробел 16 элементов массива
1 3 15 7 9 -2 -4 -6 -8 0 -5 -2 4 8 -1 -9
Результирующий массив
  -5   9   9  13   3   4 -10   0 -14   6 -11   4  -2  14  -7  -3

---

Скачать вложение Excel (XLS)