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

113

409

Посмотреть ответы 2

Ответы на вопрос:

degorov152

Информатика

4,7(95 оценок)

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.