Дан линейный массив. Нужно найти сумму минимального и максимального элемента массива, а также кол-во отрицательных элементов, стоящих на чётных местах, и вывести массив вычеркнув все нечетные значения.

Дан линейный массив. Нужно найти сумму минимального и максимального элемента массива, а также кол-во отрицательных элементов, стоящих на чётных местах, и вывести массив вычеркнув все нечетные значения.
Гость
Ответ(ы) на вопрос:
Гость
var a: array [1..1000] of integer; n, i, max, min, amount:integer; begin      read(n);      for i := 1 to n do          read(a[i]);      max := a[1];      min := a[1];      amount := 0;      for i := 1 to n do      begin           if a[i] > max           then               max := a[i];           if a[i] < min           then               min := a[i];           if (i mod 2 = 0) and (a[i] < 0)           then               amount := amount + 1;      end;      writeln('Sum of min and max equals ',max + min);      writeln('Amount of numbers below zero and on even places: ', amount);      for i := 1 to n do          if i mod 2 = 0          then              write(a[i], ' '); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы