Дан линейный массив. Нужно найти сумму минимального и максимального элемента массива, а также кол-во отрицательных элементов, стоящих на чётных местах, и вывести массив вычеркнув все нечетные значения.
More Questions From This User See All
Answers & Comments
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.